CQULD "LOC* OUT" BASIC SO NOTHING COULD HAPPEN, THAT IS 
\ WHY UZ MUST CHECK POP *C HERE, IP THIS IS THE CASE 

THEM wE NUST TAKE Thf same ACTION as for The CASE WHERE 
WE COULD PHY c ICALL v DETECT THE FACT THAT Th£ CLOCK MAS 

Running too past, when we decide that the clock is running too pas 

we STOP the CLOCK (TO PREVENT FURTHER CLOCK INTERL'PTS) AND 
Caul 'RJepr' to print OUT the ERROR MESSAGE C n R A T E ERROR"]* 

IP THERE WAS NO ERROR, THEN WE EXIT NORMALLY VIA 'INTEXT', 

aput: This puts a sample in the puffer, if no room, we get 

a suffer full message, pointers are set up by real time statement; 

AGET; OPPOSITE 0 F APUT, IF NOTHING THERE, IT PUTS BASIC To 
SLEEP UNTIL AN IMTERUPT OCCURS', DESCRIBED PREVIOUSLY, 

ABOP: This bops up pointers of aput ANO AGET, LIMITS set by 

Real time STATEMENT, ADA1,ADA2 AND ADA3 APE DETERMINING 
LIMITS AND FACTORS, 

UCLS: ClS FUNCTION, PICKS UP CLKSTS AND RETURNS IT, 

UCLCl EXECUTES 6137 ANO RETURNS RESULTS IN FAC, 

UUULLLl ThIS 1*5 THE UPPER COPE RESETER’, 

30A0J Takes AC AS CHANNEL NUMBER AND DOES CONVERSION, HAS 
TIMl OUT INCASE NO A-D OR A-D NOT WORKING, 

)’*' ■ • 

JSETF| THIS ROUTINE TAkES The AC AND MAKES IT INTO A GOOD FAC, 

IT CALLS BEGPIX and anorm, 

I 

UUAC1-3I THESE ROUTINES ADO AC1 *AC3 

RESPECTIVELY TO THE AC, THEY GET IT FROM FIELD 0, 

uumevalimeval pudge CALL 

UUPFIXi FIX ruDGE CALL, 

UUDEVCl DEVCON FUDGE CAuL, 

(UJMSI UPP£R CORE COUNTER PART OF LLLJMS 
UUJMPl UPPER CORE COUNTER PART OF LLLJMP 

upccmdoiupplr core command dispatcher, very simple, 

UPFUVl U 0 P£R CORE FUNCTION DISPATCHER', ALSO SIMPLE, 
















DBPUT; 

UUDATai 
SETUf* I 

I SET: 
MEVAL : 

LLLJMSt 


the*" buffer; T0 ?UT lrJ W0R3 » IT ™EN PUTS IN a 42 ?Vt to end 

jEg&SvJ&ig ffwwrcs.— 

uivkm, it returns to caller ir successfull, 


LILJVPj 

JUNO AC 5 
CCINTK{ 

TST * 


THIS GIVES TWE "a-0 FULL” MESSAGE, 

^Srrir 1 ^ 005 * 5 " 10 C00E: WHICH WAS M OVED 
HEuA, ' jE WE NEEDED ROOM ELSEWHERE', 

TH15 ROUTINE INITIALIZES THE DISPLAY. 

THIS ROUTINE EVALUATrS AN EXPRESSION. 

TO CALLf»°wiTH RES!JLTS°IN D FAC? SmA * GETS AN ERR ° R » RETURN IS 

UPPrR K ANf TI | M nu'rD° VlD 5 S COmm UN ICA T I ON BETWEEN THE 
W* LLLJ^S BANKS * TVP,CAL CA LE FROM UPPER IS 
YYVy 

"ETURW IS^ALWAYs'to^PPER na!? E THE USER MISHES T ° CA “ »N LOWER (tyfc 

iyczpr that llljms jms/s ^ 

OW£“ The ”N r ' A«o*' MESSAGE, 

NIS RC U ri-| t [ur. ( , THC CLOCK FLAG, IF UP. then 
IT ■» t* TO CLOCK I IN FIELD 1. 

D E C n I E D P R r V I 3 " S L Y , 


CLOC^I t 


F I E L D 


n'h*sy r ->tAl E * ECUTE:D 0N 1 CL0 « intepuft, 

SAHPLE , ArMA« K ?iMFA T « CH * NNEL E *OCX] ‘W^LLS 

or Jht o^F Hf: 'ir N IoMr T3 |5 T ? * N0/0 ° rn T ° riN= 0UT 

CON., IF done, it Clears aoacpt and SETS ARnuFT 


if wr 
D$JAO TO 
AOCU M T, 
s u f r f r , 

whether 
m i*ut. 

NOW CHECKS 
* we GET a 
IN the RE 
CANNOT 


IT 

IS 

IF 

WE 

So 


. 


TO SEE ir THE CLOCK is UP AGAIN, rr it 

r ««°5i S£E 

trat ;?L c L T , T r T ;s u :i wt ;i.g“i.a:.:j.v 


{NOUGF 














) fpts 


-I-::' 

TAB I 
lNTE.ni 

b i ole: i 


intcyt, 


if INPUT I? ruciM the TELETYPE, all IS 4S BEFORE. 

l' <l - *=■ lJat iri point package is as before, except row some cof^s*. 

US-* "a'jTTO‘ PI:KV A ^ EA IS THAT 1NDIRECTS GC t HRO'JGH FIELD ONF, S" 
DLsC^r'E^ PREVIOUSLY (AS WITH TABOO). 

J-US I a The maim INTFRUPT PROCESSOR. IT IS DESCRIBED ABOVE*, 

the only thing not mentioned was bidle, 

pule is a routine to be called when you want to put basic to 

G^T;n^vt!? T .5i LLY ™ IS SETS A FLAC CALLED BUSY, WH£N BASIC 
GO'.S TO exit FPQm an interupt, 

THI^Sr^V^ 0F BUSY * 1F IT#S ZER0 » IT EXITS NORMALLY*, 

this means it was in basic when it interupteo, if it's one. 

IN m NuLL j09 ROUTINE, IF SO, THEN NULL JOB 
lS^p ,r? LY ,?-JI A ! h E!) _ BY 0ID ^. HENCE after servicing The 
! I j h , T FR0M BI0LE AND CLEARS the busy FLAG, WHEN 
n ' S c A LLE* AGAIN, 91 DLE WILL EXIT TO THE LOCATION AS 

h^ F J'^ C ct Y t WWAT ™ E I fJT ^ R UPT ROUTINES SAVED WHEN IN THE LART 
?« a MiJ T iJ E ' M£ * ,)C:E susy is the woro which keeps TRACK of WHAT 

this routine exits from an interupt. it interoga~es 
' 3 j 3 y ' to find out what to do, 


)' 


PUTtRJ DESCRIBED PREVIOUSLY, 

ROPS U p EITHER INPUT OR OUTPUT BUFFER FLAG, 
THIS RESETS ALL "EVIcES, SEE PRESET, 


OBOPJ 
RESET1j 
RESET?i 


V 13 13 A MASTER RESET OF AlL HARDWARE STATUS FLAGS, ONLY CALLED 
Ww. J starting UP BASIC, u 


OUT C Em DESCRI0CD ABOVE, 


DEVCpmj 
DEVCOLt 

RTERr* ( 
GETARYj 


GETo ULXT ITEM FROM USER STATEMENT, THEN CALLS OEVCOM, 


CHLJ- 


TO 


NtF IF ITE W IS A C.R, IF NOT, THFN A 


-PLOTBJ 


DBLP I 


3 Y . T*. X IPROR RESULTS, 

TUlj 01.'FS THE "RATE ERROR*' MESSAGE. 

this routine looks at user's variable argument, it then 

^TnL U9 A?T kj r, C -irMi ; ' l(; IWORMATION; IT THEN CALLS GETAOD T 0 
RETURN wAST ELcMENT in ARRAY. IT HAS THE FIRST, aN D MOW THE 

\ri T [^ J ok J r ,2™ T S- * IZE ' IT LEAVES POINTER TO FIRST IN 
A w l AND °0IN■ER TO LAST IN AC2, THEN IT PETURNS, 

^ DI3PLAY SUFFER, IT SETS UP DI?B TO POINT T 0 CORRECT 

AT1 fJ ‘ J * IT P:JT G A 4001 IN LAST WORD OF BUFFER, IT 

nrsa, A vrS 0: ’ IN rif,r ' T WORD OF BUFFER SO NOTHING WILL PE 
DISPLAYED, THE m IT returns, 

THIS ROUTINE TAKES Tw£ FAC AND STICKS IT IN THE RUFFER, 

r ! T C tr^ ’nI! n 3f:E: IF IN RANGE (i1 T0 , p 999V99999) AND THEN 

IF NOT IT SC?* qbAD, IT THEN FIXES FAC, AND THEN _ 













N e 4 


changed 


R 0 U T I M E s 


II) 


0 R 


CLRCNTi 

PUTCHl 


HlS •< 0 U TI fj £ i $ HESCBIBED BY CNCLP ABOVE, 


li B L C A' I 
OBwighi 


a»! S S-r JT !^r=* S < i M ** ISCD SUGHTLY SO THAT IF pijtxRA 

PONCH'.o’(KTLR T^^CRLF ?E THE ^ NUMHFP <0I,0, CH4H * CT E'>S WOULD 3£ 
A PU.WJTI*'N or TH<- MUunro T Sr ^u^« ER ° r NULl *' s p UNCHEO IS a 

4u o?H e i\s.xT T y»; u S!g:, 5 F T 52 *;jS{w* T « line, 


PUT J l 


lociit ":f:s the si,,c e °r 

L3>Sl C1T EXTENDS FROM OSLOw’to OBHIGH3, IT ’ S 43t,iJT 8 toc * t I r )NS 


CETJ: 

P M\'T» 


KcrnTC? ° E ™ " 


3Zi A30VE , 


^ru^i^ 0 S0MEWH ‘ T * THE FUNCTION 
mJl^t oMN^Li^r 0 **™ T0 SE£ « NOT SOMETHING 


wECkWj 


, I SI I 


y^of^ 1 ?; ^,^ LE “ T r‘r THE r BER ° F pl * ces 

IS * or P Uc r S DrSJPrn M?Sni C ,' f CT UALLY, THE AC 

AUTOMATIC CRLF IS GIVEN PR^.} l?l li ' 1F N0T E N Ol'GH p OOM, AN 

* THC OUTPUT DEVICE! SIZE IS LEFT 0 lS H ?S?DTH^ **** ° F ™ E ^INE 


( TF I A t 


lht now checks to see if 
J cWilftVi: \% JJ TERmINATE P ^SEE*OEScb IPT ION^ASOvf , 


JP'JT: 


w ■ r A V ' n y 

SrPv-'“‘ E ay* eas,er «"«”«« 

IT SETS Thf TIG,, r fo'pOSlf!vE T ?r E c RS AC1 S 4C2 ' 

Ia CORRECT FOR FIXIN ( ; 0 J I J^aFB' T i? ET , S . THC EXP<), 'ENT TO J 33l WHICH 
e L.G <W>. ,T TH^ X '^ T i5 RN T?rTHFM, L , S r 0 B af ‘ RS ™ E 0 VEPFl5w“ H ' CH 


question-mark \l 111'™: >? «?? the reader; 

















I® 

M/fM 


I® 


, 


IMPORTANT routines A'jD locations, 


Kt 


as 


I) 


P A * E iLRO LOCATIONS, 


B-2 

OISAJTO 

indev, 

OUTO?, 


OUTDEV, 

ODEv, 

CNTLC, 

NOINT, 


TO 


RBfWCHi 

oise, 

preset, 

SPECINT 

PCCWT, 


DELOUT, 


INCUR, 

;pu r T, 


L-JEu EON 1‘ITERUPT VECTOR', 

*nr f 2, ?vr ISTEP USE3 AS p ° 1 NTe1 TO NEXT ITEM TO BE 
J ^ CEITMER AN X OR Y POINT]', FOUND IN NULJOO, 

CONTAINS INPUT DEVICE NUMBER <1*TTY, 2«PTR> 

CO^TMNS OUTPUT DEVICE WHILE ACCEPTING AND ECHOING 

P \ * T E TTY| IN 0THER W0R ° S » A TEMPORARY ASSIGNED 

UJoT TO HOLD THE 'REAL' OUTPUT DEVICE’, 

OUTPUT DEVICE THE ROUTINES WILL USE (0«NOTHING, 

1»TTY, 2«PTP, 3sLPT) 

TjJ P L J JmSE VICE CUPRENTUY BEING USED BY THE BUFFER, 
a 5aJ?!I 2 OL 0 FLAC <t0) ' IF 01 N0 CONTROL 0. 
fjT2m M p}“-icti^ H I ELLS WHETHER or NOT THE *C CHARACTER CAN 
L°f S i?A CERTA IN PROCESSES (SUCH AS CORE JUGGLING) 

a A T-!£' 0e interuptted, therefore they set the noint switch 

WHEN DONE, THEY RESET IT TO A 0. IF A t C SHOULD RE 

A C 77 7 r , W ibh M ° T ST0P 0 ASIC, BUT IT WILL SET THE NOINT SWITCH 
I 3 5 A 7J77, WHEN WE LEAVE THE CRITICAL PROCESS, NOINT WILL BE 

lr”? rSwIS** EE IF 1T CONTAINS A 7777, AND IF SO, WE PROCEED AS 
} F A 9 0n I r OL C HAD JUST BEEN STRUCK. 

. T ^r P o BGUTf5 SWtTcH » O - 1GNORE RUBOUTS, <> TREAT 
A^2rc- 8ACK * APR 0WS (*-), WHICH IS SHIFT 0, 

” F p ESENT DISPLAY BUPFER’, IF NONE IS PRESENT, T^IS 
t2t- T in? if ; ER °* BUFFER IS ALWAYS IN UP°ER CORE, 

InpV Aiip T n <td.it A?ln TlNE Wt,ICH RESETS ALL ELAGS BACK TO TTY 
ERROR OCCURS^ 1 * ° CLEANS UP THE 0UFFERS ' NECESSARY AFTER AN 

*!?i? P , P 2i NTS Y ° SUBROUTINE WHICH CHECKS FOR ADDITIONAL DEVICE 
! ^ T JUICES the STANDARD ONES. THE CLOCK TEST IS ' 

LUUATtiJ THERE, 

this roivter points to a routine which 

OUTPUT to TERMINATE (THE BUFFER EMPTY), THIS IS 
6ECAUSE: OTHERWISE error AND/OR LISTING CONTROL 
I JFoonAnoN MIGHT QE LOST IF A CONTROL 0 IS HIT A T THE WRONG 
JI' 1 :.. IT ALSO RESETS THE CONTROL 0 FLAG, THIS ROUTINE IS ALSO 
Ji-.AKaY USED BY the LIST . OPTION TO SET Tile NULL AFTER 
rlocr r !; lt: CPUTXRA3 > 1 T STORES the AC 
!• L'ilo FU" ROi.TlSr' W ‘ ITS r ‘”' ° UTPUT ” TERHI( “ T!: * HENCE THIS 

This po,-ts L to S routInc which 

^n--J!TE T ?S; u M R !IJ5 T ,o c S?IS E N , T ? or THE 0UTPi;T BUFFER. USED 

WUUTr.:L TESTS AND CLEARS THE NOINT FLAG DISCUSSED EARlLFR* 

ND "ft r vJ^ K neri r 'I?n T0 SUBROUTINE WHICH DETERMINES WHETHER OR ' 

RO m, ynu ut'a.-u P t^ A J i lLL 0 VEPFLOW FREE CORE, THE AMOUNT OF 

T U ro T0 I AKE SH0ULD BE THE AC, IF NO ROOM, 

Tic., ,»N ERPQD message IS GIVEN', 














THE V#a!T COMMAND 

TH6-S ?Mt * X i’CNTlCAL TO THE WAITS COMMAND. IT •TUOOEV 

TMf time C h 1 ‘V m - "o..? m ^o W rI?uSns! NT e:RUPT occu "' 1T L00K? ^IKE 

THE ACCEPT COMMAND, 

fr“.f,S C « PT C0NMAf| D WILL SET THE ACCEPT DATA SWITCH r ahapdt i 
,, ^ W'E ha ^E A GOODi CLEAN BUFFER CABDG£T> 7 n rr 

we oo wot, we pall though to the Reject' Sd! 3 ' IF 


TWS REJECT 

the reject 
r ETu*NF to 


command, 

command clears the 

BASIC VIA DEVCOM, 


ACCEPT DATA FLAG CADACPT3, It 


• a i • t u U n n m i\j [ j , 

^AND IS ONE CP THE MORE HAIRY OF THE NEW 

0 A qcr f? M u- ND 5: THE BLOWING IS what occurs, it first 

? SEE IF WE ARE ACCEPTING DATA’. IF WE ARF. Twr 1 5T 
IS IGNORED C VIA SKIPIT3, Jr W E APE NOT ACCEPTlNr mr» 

u?0 RE s A E T T V s ISr?fH n s ^?; o , THIS ««• 


the real time command. 

LAR^f'T! 0 ,. 15 oN - cr THE M0RE HAIRY of the nfw 
LA8-6/E 8as jc roMMAwns 1 rur rm .1 - w 

CHECKS TO 

CDrtMAND IE 

WE ?£rN Ii T *?!"'r. US THE *"E* THE’uSfS REiuESTEb;‘"THP 

M.’KIS.'S :s» I- f£; "... 

IS 

P ?b®b' #Li;C!f -"S. 

TELL^TH^SYsTr-Nw^*^^ 71- * IN THE BUFFER UCOUNTJ *md 
TELL THE SYbTEv THAT WE'VE SOT A COOO BUFFER CABOOET >g}',° 

The TIME FUNCTION C TIM 3 

C T LOcw TI ^TEBUp'?s 0 \^Jk? N ?t;? E ^ HBE ‘' ° r TICS - EVERY TI ME THE 
TIME AMti TH£M TIH1. hi 4et5p5s THiS N TlSe P IN ,, THE I AcJ ‘^EMTS 
T Ht 4 DB FUNCTION, 

BE^ES^r^^A^S^ J a H |te A R AU 7777 ‘ S - JADC3 

Sc“ WrAWSlWk? E,THER E DOES am immediate 

u ::i 

ni UL Siri: 3040 ,a,iTH the INTECERIZED AC3' (BI T c S 

Doaj DOEs an a»d rnNi/ro^inw fam tiIf* * ” **™ 11 ^ # 

RETURNS this VALUE IW ?HF i.!SL C t! ANNEL l " THE AC * IT THEN 
The a-D VAMir TO di . W ^I HE Ac * UADCB THEN GOES To UINACi WHFRP 

Into the correct numeric^ance t A i , u N ?J HA S ,I ^ d an ° tt ^ brought 

GIVEN, it THEn’cHECK*; TO P SEF E ’?r I TU^ TI VE ’ 1F N ° T ' AN ERR0R IS 
Is'w^LL? IT^ALLS^G^T 1 ? S0 ' AN0TH£rI MESSACE S IS C gI v|n. B i? all 

BUFFER, ACPT^IR MERELY H°E G RlNr AN m^r D VA k UE r9 ° M THE USERS 
IS IN TH r HUFFFH L a r ni imt W £-i R BU FFE:R REMCVER, IF NOTHING 

S8'^®®&a®2 fe?s-w 


from THE 
HERO, IT 












Tu AD r 7 £cI^ DESIRED POSITION, IT CONSIST cr TWO parts, 
trl , IS TW “ ACT ' IA L TAB FUNCTION, the SECOND is callfd 
ir tu* / 2 r l S Ci i’ LED PY pqiNT AFT ^ R EVALUATING AN EXPRESS t ON 
lull;. 1 A ? FLj 15 SET - WHAT HAPPENS is AS FOLLOWS! 

It! r ll C ,^ L€ °' lT FIRST F,XES TH E ARGUMENT, IT THEN SETS 

it ?u' : w ™ *"B ,c i TE THAT WE HAVE processed a tab function*. 
!rJ| T UMN, AM^ Irr o RESENT P0SlTl0N OF THE PRINT head from 
n? J hc-n aJ 3 RETURNS THIS AS THE FUNCTION VALUE, THUS Tab Can 
Tu^IStm^^ ? EGUALR FUNCTION, IT THEN RETURNS TO THE CALLER', 
rJpur-srlM^Jl^T?! pR0CESS0R CHECKS TABFLG AFT E R EVALUATING AN 
p^?e J ni 0N ’ Ir IT S SET <N0N-2ER0> then IT GOES to TABOO’. TABOO 

Pfu!jR-S P nn! E !!5r! E 1 ANlT T0 G0 T0 <LEFT ,N ' TaBDE: S' BY TAB) AND 
n Jr? L A “ D E ARE BY US,NG COLUMN. IF WE ARE TO FAR IT 
T bd!! R AGE RETljRN AN0 A NULl - CHARACTER( To PREVENT 

clAei P S22i" e ^S? • ™ EN sp ACES OVER THE CORRECT NUHBER OP 
BPA CES, WHEN DONE IT RETURNS TO 'PRINT+1' T 0 

SrcTrSi/uS?^ 5 THE C0MMAND * NOTE THAT WE CANNOT RETURN TO THE 
ix C or CAL b ED IT BECAUSE IT WILL PRINT OUT A VALUE ( 

CONVERT IT TO E SsciI ^ WIU TAKE THE EVALUATED N ^ B E R AND 


THE r CLLOWING COMMANDS ARE ALL DONE IN (RESIDE) IN FIELD l', 


WITH 


THL ATC FUNCTION. 

I^Jco^Ar 1 ^ 10 " CReNAM FD ZZADC3 CALLS THE ROUTINE UADCB 
A ZE*C AC, UADCB IS THE GENERAL A-D 

dispatcher, uadcp has two courses or ACTION DEPENDING ON Tur a r 
THi USE'< SHOULD HE»D IT'S DESCRIPTION AT ‘ 

The end, UADCB WILL RETURN WITH THE CORRECT ADC VALUE IN THE 
p Av, IT WILL THEN RETURN TO THE CALLER, 


the set ^ate com 
this command set 
first calls meva 
places this in t 
The CORRECT HARD 
IT THEN jumps to 
CVIA UM£VAL] and 
WITH THIS NUMBER 
ANJ T I M2). THESE 
IT THEN F E TU r NS 


HAND, 

s the clock going from the arguments, it 

L c VIA UMEVALJ TO GET THE R ATE (0*7), IT THEN 
HE COMMAND REGISTER ALONG WITH A 5010, THESE ARE 
WARE FLAG BITS TO RUN IN 'NORMAL' CLOCK MODE’ 
USETM, USETM WILL EVALUATE THE NEXT EXPRESSION 

.will then load the clock pegister 
, it then clears the two time registers (Timi 
are incremented every time A clock tic OCCURS', 


the set clock command, 

l*URl\l l a\r L e l nr 12 ™ E SET RATE COMMAND EXCEPT THAT 
Lj T IRE 17 PITS OF Tnr MODE THE USER 

Io USED. JUST RIT 0 js SET ON 


TO 


HAS 
INSURE 


T'J jSETM 

the waitc command, 

THli command waits FdR a CLOCK TIC IT 

crjer word of the clock counter 

It THEN CALLS 3IDLE TO PUT 
IT SEE'S IF THE TIME HAS 
VIA OE'CCM'. IF IT 


specified 

INTERUPTS. 


the 


then it goes 


first PICKS UP The LOW 
CTIM2D AND SAVES IT IN UTEMP’ 
BASIC TO SLEEP, WHEN it's AWAKENED, 
CHANGED, IF IT HAS, IT RETURNS 
HASN'T, IT GOES TO SLEEP AGAIN, 




















T H- * 1 ULL JOfl (OR N'JLJOR) 

13 ' I UMC FOR SOMETHING 
n A>IC, IT Ii ALSO CALLFO 
IS J»JST IN TRfc. MANNER OF 

NUwJ^a CMECK* TO SEE IF THERE IS A PLOTTING 
IF THERE IS (DISO IS NON-ZERO) THEN IT WILL 
TO 3" OISB. IT WILL THEN TAKE OUT X-Y PAIRS 


this routine is called whenever basic 

TO HAPPEN, it RUNS the scope In LAB-8/E 
VIA THE "OELAY" COMMAND, THE DIFFERENCE 
EXIT, THE FLAG * NDELAY' CONTROLS THAT’, 

buffer assigned, 

SET UP DISAUTO 
OF POINTS AND 


if 


IS THE EN0 ° r l-' 51 INDICATOR. ON 
it’ \u\ui'n S lrrll-,°rl S BACK T0 N UI-J09 »NO CHECKS NOEIAY T 0 SEE 

it should return to the caller, if not* it then restarts 
all OVER AGAIN BY RECHECKING ofsB*. RESTARTS 

The rl-t statement, 

Pmt^i'iuct £h? T C0 2 M4ND IS ENCOUNTERED. BASIC GOES TO 'PL0T>', 
whr T *c-?SL CMECKS T0 SEE IF 4 BUFFER IS ASSIGNED, IF ONE IS 
p. 0 ! 4 'r^crS'. IT ASSlGNS Sp ACE BY CHANGING ARRL0C, IT THEN CALLS 
p ^ T -, t T0 SET UP THE CORRECT BUFFER WORDS, WHEN A BUFFER IS 

I? ^u"^VMm L ^I B F^tb S r MEVAL, MEVAL EVALUATES AN EXPRESSION, 
iI ai T ^: if Vt T iFt IE ! TWIS EXPRESSION BY FSWIFT FOR CORRECT SCREEN 
• - El J'i IT THEN CALLS DBLIT TO PLACE IN THE SCOPE BUFFER 
IT tmfN CUES THE SAME FOR THE Y VALUE (EXCEPT NOT MULTIPLYING)', 

hcn all i. done, it then goes to devcon to clean up the command 


Tfit UsE STATEMENT, 

I M l1, 3 ,J T J T£:MENT allocates a scope buffer IN BASIC, it FIRST 

!2 if a buffer is assigned’, if one is, it returns' 
i S i ^ t * T ' ^ ME ^ it calls getary to figure out the size of 

ALS C U i G D 5 ! ,EN lT‘'?S E J% E *T L ^ D C {s T e E tT SP ‘ CE tACTUALLV - IT ’ S 

I^tSen R e E xItc I) ?S E cevc5h? THEN e * US PL0TB T ° SET up 9urprR ' 


the cl 
Thu s 

TilERF 
C..I3E ( 


EAR COMMAND, 

TATEME^'T CAUSES the SCOPE BUFFER TO BE CLEARED, IF 
A BUFFER PRESENT (DISBO0), THE KI IT PLACES AN ARQRT 


IS 


45 THE F I RST INSTRUCTION in THE 
U..wL CTOP DISPLAYING ON THIS, HENCE NOTHING 


PUFF'R, 
WILL BE 


NULJOB 

displayed’, 


The t$ 
the t> 
T v ' P e "> 
I", RE 
Ah) IS- 
M /, a ;; R 


BEEN 


T FUNCTION, 

T FUNCTION TESTS WHETHER OR NOT A CHARACTER HaS 
PY PLACING 'INCHAR' IN AC3 AND THEN NORMAL ZING 
UAUSF INCHAR IS ALWAYS ZERO IF NO CHARACTER HAS BE r N TYPED 
ALWAY-- NQV-HERO IF A CHARACTER MAS BEEN T'PED, THIS 
TpT <L M A VE AS DESIRED AND DESCRIBED, 


T It 

The 


get 

GET 


A NO 
AND 


PL'Te® and 
REMOVE The 
RCLTImES, 


PUT 

PUT 

;etch 


FUNCTIONS', 

FUNCTIONS PERFORM THERE TASKS RY 
WITH the correct ITEM IN the AC, 


3 BIT CHARACTER PROM AC3. FAIRLY TRIVIAL 


MERELY CALLING 
THEY INSERT- 


Tmg. PuBQUTS AND no 
Th*-SE COMMANDS SET 
A l DC 0 DEPENDING 
RD-’TP'E GETCH 


TESTS 


RUBOUTS COMMANDS. 

the Variable rbswch to 
on whether or not to process rubouts, 
this flag WHEN INPUTING CHARACTERS, 


the 


Th*. tab function’, 
this function 1 is the 


FUNCTION WHICH CAN POSITION the print 



















W' k |y: *“ AV character in it.s BUrrrR ,n 

i* s?uis T .gf t v iff 8$^:™ v/*"*" oSn^tJStT^ 1 IT THEREr °^- 

{*»«« that is TO PRINT A^CHARACTER ,n 

IWI'TA™ Zl l °' 

nvrh!^'^ 90rrER H IS E EMPTY CM pSTER^V N ^ TT ®^ ®°ING^TO^^HE 5 

^ w a aptpd^ £ a L 13 'OUTJT' >0 OUTPUT Tur^J 5 ?o # ASSIGNS ' ™E BUFFER to THE 
vHARACTER F*RTm T^r uijrprp AV)n Ai ,^ n CHARACTER, OUTIT REMOVES OWr 

ARE CHARACTEPS IN T Sr aS?r«° ?^ U I S . ,T « *? IT'S POSSIBLE^ IF t2?Ep 

jjjlSXm! twat R should'ctncern JhVr^^ 1N 

‘* E unoer N I r 2ontpol A o*<sup2 R ess G outputi 1 ^‘•* Ts ^s C «het2er C SJ l Sot A he 
immediately^ r3 N0T PR0C£SS cmaracters: i5s?eao R 5c I USst 0 retSr 5 A ° cm " 01 


C) 


this 

it BASICALLY 

MACHINE (AC, 

INTEROPTlNii, 
IT DOES ri\D 
UTPUT flag 


THc. PJTEPUPT CHAINl 


is THE ROUTINE 


»RI.\T the 
ihapacter 
ontpdl character 


does The follow I f I t t ? e devices on an INTERIJPT. 
link, etc.?; i? , ?a le , J 0 Ei' , *J T ?i»|s THE state of the 

IE IT CANNOT PI NO IT >Tu ,°J' S T ° rIND ° U T WHICH DEVICE 
I T - IT DOES TO t 2 p MR»JrS A iIS. A rATAL E0, *™>. IE E 
(TTY.LPT, PTp ) TTri r?oo E S T R °UTINE, ONI AN 
VT ' _I P) IT CLEARS THE Fiat. aw* tuca, 


IS 


)E*T CHapaCTER, 


ON 


_ w , A C HTrH S cPrL rLAG AND TMEN CALLS OUTIT 

cter AR ; c 0 qr gj interurt, it IT PUTS 

■HE CHARACTER IN i\| C uar R I? ; T le 1 ! , ? N ' T » I T 

™ 1T SETS rHE 

r - ’D > • IP P'S DK Tt pTfid da£.I C 'J. T CHECKS NOINT (DISCUSSED AT 


TO SEE IF IT'S 
MERELY PLACES 


TO 

THE 


HE 

ASIC WJTh A S t DP»RFADY 

he OWLY pr H r P DEVICE I 

I Dl c CUS$Eu L'’T r H Tn r 

A ^I'E 'a;, ljne? e t c,? 


ck td stop basic 
message 


ncw, it then resets 


'J rME 4 ?NTERUP?°CHA^S IS^TH^CLOCK^WHlrH^ 1 ^ 0 ^''' 

LKIT troh AN INTERUPT,^' JnTEXT?^reSTORES tT 


) 


L4J-^\^ ADDITIONS: 


* Hli -' : '^N£ additions 

-H'Tr ON T M£ LAS-fcNE 
iSYj-l^, t ' J E 
,A^ ' 


ARE BASICALLY A 

peripherals, since the 


SERIES 

READER 


OF 

IS 


COMMANDS 


WHICH 


















. 




WILL SetjS-S? ^ 1 TVPPD * ™ E *-o routines 

wA*r- aSoth V r J£ a 'I t ',2 n V asic WILL continue to t* un* until it 

CHm'-TER I 'if J| R {?I tR ,°2,^ !,TL IT WANTS T0 OUTPUT ANOTHER 
0 A r Ir *PA| i’« i Tuc '? L i T o' UASIu IS USUALLY WAITING TOR INPUT, when 

M V. at ! ?, ua'ur ! T E ?: h , TH ?T l nSpS°VJ ,NES CHECK T0 ,EE Ir IT CA " 

» t * t m w n T Tucr fT , IT DOES IT AND RETURNS TO BASIC. IT 

IF C/N pR'j* ^c il i l r l ‘*T W eJI F ° R AN INTEp UPT TO OCCUR AND SEE 

SLEEP^ C d¥^Wl “ TO 

in L law JV^tr vrR T “ L i-o^ounNEriiRE^ 

THE DlmS^S^ER' ° B 13 THE R0UTINE u «tCH DISPLAYS THE CONTENTS * OF 

m USE Sr{2 e ^’JSKrS e -SV«5U e S%^? M ?- M ?g? uszv c " 




' 'V ‘V <:i\ 

. mm iifm 

. ' ; .JTT*S v , *. y 

V- - i- .A‘ > 




A) 


the get poutinei 


?? u mu “■? ^^ nziAwv»i ?T?: E !r T ??.s t i m 

FOLLOW! E E MlGH speed RE40ER - the sequence op events is as’ 

pwrr^«? t n^"rr ti PST rhEc KS The DEVICE FLAG', IF IT'S A ONE* THEN IT 
BY THE INTFHUpT r?niT ii5r£ C T w* B E EN! TYPED * TYPED CHARACTERS ARE £ r T 

vir^irt ZMihsr 11 ™ «:v c f^ isjwt? 
^- T rg E :?- :, -^f; H {"” ,, "« u «*s e :'cisg*S5gs E ?gi„ , ?Mg i sji5 EWT - the 

-NRChars^Qn’aN IVEPoiT C r E 3» N I2r A uf?u N II? * N0 7ESTS ™ E “ 0RD 

ROUTINES Bl rf Mr J oL ?? M . THE MIGH SPEE:D REAOER, the INTERUPT 
(RChIp BEPjir t!m| S^5 4 SJ? ? Sff n ‘S G “ HERE GETS 4 CHARACTER PROM 

” "Ss™ r ??T5!^ E T 2^ TTY^ANO^THIN 

TO -MT Pol A Uy’cJaSaC^ER JUMPS T ° NEAR THE BE31NN1NG ° r GETCH 

s [ . fwiif?;!' “««“ ws^His^ss-.-jj-fs ^’ e t n° ;im s ,n 


3 


THE Puf ROUTINE - : 


IT IS alo¥ « n RF U r^Lr R1WTS A CHARACTER ON THE DESIRED OUTPUT DEVICE' 

vU '?« G eIuM K ?o5To T IvI; E 25To!v‘ Fuc * SS0C “ ,E0 

ANDi ,s'lpt%tr ^, 0 ^,; g ; r ^ p ; 3 

■ I "-■ ■■ . 11 . 




— 




















l 77 ;f-i 777 / 


lE r T Al[PRESERVED FOR the RI* LOADER] 


ft'’ . 

' ' 
j-- .f 'i* 




all QF_ThE .pace that WAS IN TREE E I EL n Z IS NOW OCCUPIED 
nno CjD£ ’ ™ E 3 J naRY loader must re in ej£^0 one 
S rcip G WHEN BASIC IS STARTED, IT WILL 

DESTROY IT (RECAUSE IT IS in THE BUefeR AREA) 

mav V wJt E V I i M L0ADEe? WI| - L SE PRESERVED, LAB-8/E BASIC 

m ay hot be loaded by ps/e; IC 


now 

OPERATION % 
WILL BE *D I 

the user's 
a LINE, the 
NEXT LIST, 

IT'S time i 
operation i 

DATA FIELD 
INSTANCES w 
PLACE WHERE 
POINT PACka 
FIND OUT Wh 
THE COMMENT 
.ONE OF The a 
)ATA OR Exi 
'THERE ARE w 
BASIC, 


IL T raVll5eri«ri AV B 0UT H ' S 8EEN ESTABLISHED, THE MODE OF 
ILL BE DISCUSSED, BASIC IN IT'S NORMAL mode nr nppfiATf rui 

SSe ? G M M !?MrL E ^y?S« L r H ”p E R 0 S* N ° E 1?*Jiro B 

m ^p, fl , J Kr R one » as is the symbol table, for- 

N>IELD L 0NE* THIS meam^^tuat ?tf IC j WILL BE SPENDING MOST OF 
C rrs furE*,! 1 i ? MEANS THAT B *SIC'S NORMAL MODE OF 

™ E DATa FlzL0 T0 B ^ SET to riELD 1 , therefore tup 
• L ttJ*?- SET 1° FIELD 0NE except in those rare E E * HE 

GF™SPr!:n A s P L^T I np T ^,c rL 5 ATliG ^POINT piciJcE? 6 ?^ ?LOA?l5S 

E ° E T HE M COF N lNSTRUC?ioSs M ASr* TAGGED WITH 

- m«i? xi LlKE 


id 


INTCRUPT I/O 


BETWEEN EDJSVS-iit ANR i An-a 


BA 

the 


sic 


A # SIMULATED' 
TLOCK To cjr USED 


«t N"w cr>h E TO THE. SECTION WHICH MAK E S THt hugest DIFF£PENC 
LAH- a /r BASIC, INTERUPT I/O GIVES LAB- 8 /E 

better run-time because of buffering and allows 

A REAL-TIME MANNER, A BASIC OVERVIEW FOLLOWS! 
" A rIE^ T nL IN P ? EVI0US SECTION THAT BASIC SPENDS MOST 

e eld o e. that is mostly correct, if we take 

WEANING THAT PART HHICH RUNS OR TRANSLATES THE 

one * the 

ssftcV BASIC ' S WAY or 


IT 

VS TIME I;j 
-<E WORD ' ^ A*51 C ^ as 

’ROG D AM, T^ERE EXIST OTHER SECTIONS OF 


OF 


. „ -- TO PUT OR GET A 

l-o POUTINSS TO DO THIS TASK, when TH E CHAPAOTFP 
















' 



f§&B 


LAj-O/L DOCUMENTATION 



3ASic roR^TurVia BERcRI ° T JDN OF THE INTERNAL WORKINGS OF 
t OESC9H. T H r CHJNGES MADE TO EDUSVS-10 TO PHOOUCE LA8«8/E BASIC! 


does ir l ‘oiF^Ms B f« I Tur 0B “ s a?PR 0X I m * t ELV THE SAME 
D0 “* IT QIFFEHS in the FOLLOWING RESPECTSi 


way AS EOUSYS-10 


i! 8AS ! C U3ES 8K ° F C0 * E AS OPPOSED TO 4K OF CORE 

3 tltll/l alljS HA- S A(lnl??n^I, S AN0 HANDLES M0R E DEIVCES;' 
COHMAHoS' i UH S !SH% 4 E%?» D ?i T i 0 ON T A l; E C L 0 “ B E .J» E “‘ N0 ^ ™ SPEC I Al 

rEATU«Es“ H A\nH r !E L OCE S ,s S ASSU L iEj or IJS.iT 18 M ‘ DE T ° ,MPLEMEN ? “>°Vr 
description is pnn«T rn 1 A !; J r E ° ° r Basic and edusys-id, a brief 

OUTINES AJOEO DO, ^:D^iAT^Y E CO D RE OF LO T clTiO M £s MO ME W A H ^ M ° ECRI9ES WHAT ™ C 


I) 


0 K MODIFICATION, 


TO 

verything 

OW RE R IDri P JS C r??, u ° M0W RESIDES *N>!ELD 1, IN 

HUS R Wna- MAn Fl S L0 0NE T0 HANDLE THE CLOCK AND 
HUS A CORr, MAP WOULD LOOK LlKEl 


, p^| n !i S i!i USE * K * THE FOLLOWING CHANGE WAS MADE, 
* -S UED I FIELD 0, IN THE 8K VERSION, EVERYTHING 


IN 4K 
_ . FROM 
ADDITION, SOME CODE 
A-D INSTRUCTIONS, 


0000-10777 

11000-17785 


1) 

?> 

3) 

4) 

5) 
M 
7) 

6) 
9) 


J 


BASIC SYSTEM [ALL CODE NEEDED FOR BASIC] 

k tM**: ,n « 

ARRA> and VAPIABLE space 

FREE SPACE (EVERYTHING 'GROWS' INTO THIS SPAPF) 

5s°2n&ratrjR!i? ,c SPace ’ 

BASIC'S PERMANENT SYMBOL TABLE AREA 

the Wltr** <TTV AN0 TRANSLATED EINE DUFFER) 

the for-next list 
the CO SUB list, 

thus upper core is the 

area WHERE all THE DRIVING TABLES Awn ppopram 
VARIABLE AREAS ARE IN BASIC, PROGRAM- 






























RpB!.K?yj;K 


interoffice memorandum 


' ». W 


DATE: 

- - 

October 10, 1972 

PROM: 

J. Duffy 

DEPT: 

Small Systems 


subJ: User functions and Commands in 8 k Basic r/t 

er ™ a -*• 

1. Programming Languages 1972 

2 ‘ SfZ!r',S Jl DEC-LB-D7UB-0 or the newer 

S ° " are Sy * te, “ DSer '“ M “ US1 

3. A Listing of Basic/RT DEC-8E-ABASA-A-LA. 


















i hmh 













FAT-Cj, 

limit, 


) 


changing 'plimjt' 


PE*f»?YM 


LlNbUF, 

L BZQV4, 

ENDLIN, 

PDLIST, 

ENDPDL# 

foplist, 

GOLU'T, 


CSPEV&, 


FI-^jT LOCATION O r USER FREE SPACE', 
r p ^:u'; t me only pointer to it so THAT ^ha^inj m 

lU‘: T!?- iz lizw w rwerms '< THE cuuoc 

^^{^^H:2L? l S?H% ! J L c ?JS L T r^ 0 Iu.TSo E »E t :Ty ,E " ST0RA5E - 

IT> r O=»H is EXACTLY WMAT it looks LIKE I 
WE HORDJTEKT 'THE SYMBOLS PRINT NAME' 

LIW£: I SJp UT BUFFER, TRANSLATED LINE STARTS HERE, 
just^collected^ r0R THE FULLNESS 0F THE LIN£ EXCEPT when it 

Sr«T?Se T «ERE , ! ! R B i N fiS ?^ F t^ E UNTRANSL4TE0 4SCU comes ,n 
U^S sJ AS :ENDPDL '' BUT ™ E TRANSUTEn 

'PU' C °oi l NTriNTO t ?H?S l : V F0R EXPI,ESSI0NS AN ° ™>« s I.IKE THAT'. 
fno of the push town list, 

FO< TaPLF, A MAXIMUM OF 5 TWO WORD ENTRIES, 

Jp V ^ F }f B to' AND THE LOCATION OF THE 'TO' IN THE 'FOR' STATTMrKlT 

F^md T Ta 1 . S TLIE 0NES COMPLEMENT of THE NU M BER OF ENTRIES ' ' 

TA 9 LE, A MAXIMUM OF 3 ENTRIES. ENTRIES, 

A POINTER to after The gosub, 

E*) 9 ;r;H?°^iSa , ris L ^ Rt: T0 THE next free space - 

77^6 THROUGH 7777 ARE UNTOUCHED BY EXECUTION OF BASIC. 













fst if., 
fsjnok, 

PSCw, 

PINT, 
f U' Tl, 

FTA’-T?, 

TSilv?, 

FS V:,U, 

FS!Nr lf 

FSJNC3, 

FS INC4, 

FS I <*C5, 

FSINC6, 

CSIUC7, 

C S 1 \ M 4 | 

UPAKPX, SASIC * t ' USING EXTENDED FUNCTIONS, 

FUPFCli IF T U E SECOND ARGUMENT IS SUITABLE, DO IT PY THE MULTIPLICATION 

method, otherwise# 

EXPLCN3,Atd = LXP(LOG(A)*B) WITH P0SSI8LE NEGATIVE ARG, TO LCG, 

PLOG, 

PEXP, 

exp, ba.»ic *exp' function, (can be deleted.), 

FXXFFX, 

PPINT, 

FEXPI, 

FEXK', 

FEXFF, 

fexpt:, 
tZXPZi , 

FEXPC-, 

FEXr C‘., 

FEXFCf', 

FEXK* , 

LOG, R4*r 'LOG' FUNCTION.(CAN BE DELETED,). 

FLOGCc, 

FL0GC3, 

F L 0 G C 4 , 

LOGFWO, 

LOGACE, 

LOGO‘S., 

FLOGC1, 

ATN, Ba?IO ' A T N' FUNCTION,(CAN BE DELETED.). 

A TNL 0 * , 

ATNN'Ol , 

ATNF.I -, 

F A T •- :l <, 

FAT.NA ,, 

FATM, 

FATNTT, 


FAT' Cl, 
FATNOfc, 
FATt-CS, 

FAT' 04 , 

A T *, C 5, 
r A TC 6 , 
•ATNC7, 
•ATKCa, 
FATNGV, 
FA T'.C, 
FATNCH, 

















IT RETURNS WITH THE AC EQUAL TO THE LOW ORDER WORD PLUS 
(IF 2FP0 ORIGIN) INDEXING, THEN 1, ELSE 0), 

nxLvp, 
zfixex, 
tixl> it, 

SSFIK, 

07^, 

argerr, PRINT * argument ERROR* 

D0T2ERD,' 

OUTNUM, ROVTIlVfcTO PRINT FLOATING AC IN BASIC FORMAT, GIVES NO LEADING 

or trailing spaces, 

NONZERO* 

cvtloop, 

FMT2, 

FMTl, THlo ENTIRE ROUTINE IS STOLEN FROM TSS0 PASIC, 

FMT3# 

TRY A ( ; IN, 

zeplone:, 

DIGLU , 

1 xi;t, 

17, LITERALS, 

252, 

)255, 

)3CH, 

3752- , 

5 MP Y, 

®NPF1, 

MX I TUP, 

5CC, 

JORMJT, 

IORKED, 

OTXiC, 

XPCMDO, 

VLCCP, 

X P C K> , 

MPY, 

N U M f* U r i PJFFlR FOR HOLDING ACCUMULATED NUMBER BEFORE PRINTOUT, 

02062 i L I T £ P a I- S, 

C 7 61, 

0777.J, 

RND, r U;r 'RND' FUf.'CT I ON . ( C AN BE DELETED,), 

ern:> , 

' R N u x , 

'RNCCli 
ESQm » , 

SQR, ?'M0 'SDR' r uNCT I ON , (CAN RE DELETED,), 
sQLC'.r, 

DDE/ I T , 

SQEaIT, 
i07ev, 

N, RAilC ’FU«* r UNJTI 0 m,(CAN BE DELETED.). 

Gx: J 'C Ti 'UG£RPN' TO h AWE A POINTER TO A LINE STARTING ' D E F' 

It CHECK*: eqr ThaT, THEN 'PUSH'ES THE VALUE OF THE FORMAL 
Pa<A”LTEP, iETS IT EQUAL TO THE ACTUAL PARAMETER, 

evaluates the pigwt side of the <def* statement, 

TUi'j 'PO°'D THE OLD VALUE OF THE FORMAL PARAMETER, 

PUS t- r‘M, 

TAN, Pa.I** 'TAN' FUNCTION.CAN BE DELETED.). 

COS. Hm'M 'COS' FUNCTION,(CAN HE DELETED.), 

SIM, PAM*” 'SIN' FUNCTION, (CAN BE DELETED,), 



r ■ i t i < i■ -■PminimnniM.i-.w'HMiin . xmwwwiwi 



















LOADED 

IS11T, 

error, 

Q ERROR 
fPT, 


PIOOP, 

RPC? i 

RpCIT| 

PNCACR 

PCGTO, 

Pjl'MP, 

PADDR, 

POPER, 

PS^IP, 

PjMP 

pstg 

IGHWU, 
'6b ft 
’LAC, 
3 apr;, 


^ISr W c^ ITM IT THE FLOATING AC'. 
ixArr SAVE* IN ISITLIT, 

P.1<c r "ERSa&E printing ROUTINE*, 

0 9 £ *« ^ r P * 

His'^iJoilsMSir iw?! 5 StiSS«| T P * CK * CE ‘ ” 0,T Hm,ss ‘- 

PL^AflN'G JUMP, 

P L G’ A T I f« C STORE, 

PLwA T If>G LOAD, 

P L 0 A T I f* G ADD, 

PL^ATIf.C SUBTRACT, 

PL'JATINC MULTIPLY, 

*nj floating divide. 

OTH^WlSr C n S IS S RPi A A?rur R ?n D iilf C L OR INDIREcT IF BIT 4 IS OFF*, 
TuForl»r !, e i S , P £ T1VE T0 THE PROGRAM COUNTER, 

there are also the six floating point skip c . anr an f-ytt- 

• p ^ T u? U pr 2 rlr (J T S BASIC PHILOSOPHY ON DOCUMENTATION’ 

I ,-I?Fr CAQE D0ES N0T KN ° W P 0 P »8 CODE WELL ENOUGH TO Rrln Tur 

MllTck N5H= S E2 U c“uNCM!NC. MOOIrY,Nli ™ E e00E ' TH,S 15 “SCULLY 


Ri. 

:n, 

)P3, 


WA5 E ^UlTAn S r C \\* EXd ONENTIATION, IF THE SECOND ARGUMENT 
A> SUITABLE. IT IS DONE BY REPEATED MULTIPLICATION, 


l kOO. 


f ’SUB, 
PACO 
LG*Lf , 
ckwh 1 , 
:tmv , 

) F A [l 

I *MUu, 

► 3 YL''P, 

f jlclr, 

F PLOOP, 
\ 'TEMP, 
t 577, 

A OR’M, 

N TblGi 
F BUMP, 

L 0 E r F, 

A 1, 

' 0 I w , 

VLP, 

2or , 

; PlT-P, 


- \, 

3. »4 2 

FI*, 


Subroutine to do basic mnt< to flowing ac.iintc.i.o,..,,', 














A 





A - 31 Nl T L TO IT. _ 

ETTTP, Th-RC wa? A LETTER WHICH MUST BE A VARIABLE# 

Which mav oh may NOT BE FOLLOWED BY A D! r 'I". 

M a i< r THE V A k I A 9 L E NA M Ci 

A no c Earch the USE 0 symbol table for that variable name, 
,if it’is found# return a pointer to it, 


i I Mf L V , 

PSCHLUP 
! SDEF ?, 

' TSOEFi 
SCHNOT 


VARIABLE SPACE# AND RETURN A POINTER 


# 0T*iE°H 1 SE PUT ONE IN, 

SuT UP THE CORRESPONDING 
Tq THAI, 

.Bt-F, LITEPAl, 

r £N, floating point is,c . 

30P, PUiH DOWN LIST POPPER, 

•OURLF, Te*T OF FOUR <CRLF>S. 

JCH1, LINE MAKFS PROGRAM * TOO BIG, 

:f • 23*?Kl h fr t «jR?°?!*I°£|NC NUMBER FOLLOW!.'® THE COMMAND. 

IF THERE IS, AND IT IS DEFINED, LIST FROM THAT LINE, 

.otherwise list from the beginning’, 


LINE IGNORED* MESSAGE, 


.ISTALL 

.1STSOM 

.ISTLUP 


.IST2, 

9RJNVAR 

.1ST?, 

. I ST 4 , 

Jlup, 

.IST5, 

-• RI NT XT 
'RLCOP, 
iRTXRET 
I R5UB°, 
CUFFR, 
DT741, 
PRINUM, 


D 23 3, 
RESTORE 

BREAk- 
READY, 
CRLFs 
MORE IN, 
INPUT, 

’ NPLU'P, 


.LIFTING IS STOPPED BY TYPING ANY CHARACTER, 

IF IT'S (EOF) then the listing IS done, 

IF IT'S a line number, print IT, 

IF ITS A VARIABLE, PRINT IT, 

.TEMPORARY which holds THE VARIABLE NAME. 
if it's a li t eral, then print it, 

IF IT'S TEXT, THEN PRINT IT 
IN A LOOP, 

OTHERWISE IT'S A SYSTEM SYMBOL, SO PRINT THAT, 

,subroutine for printing packed ascii text, 


LUEPAl, 

ROUTINE FOR print LINE NUMBERS, 

IT DOES IT BY CONVERTING TO FLOATING POINTIWHICH THE OUTPUT 
ROUTINE WILL PRINT IN INTEGER FORM), 
literal, j 

,MUoT BE FOLLOWED BY (CRLF) OR *\* 

RESETS THE READ-DATA POINTER, 

* STOP' 

'READY* i 

A CARRIACE RETURN LINE FEED, ( . 1 , PUPWT 

IF IT'S a (C°LF) OR '\* THEN ITS THE END OF THE INPUT* STATEMENT 

PRINT a t1i % 

GET A LINE,(CHECKING FOR 'STOP*) AND FOR EACH VARIABLE, 

*GETVA«* and 'STOVAR', SWITCH THE LOCATION COUNTER FOR A 
INTO THE LINE BUFFER AND SCAN A VALUE(EXPRESS IONS OK,), 

AND RKTTCH THE LOCATION COUNTER BACK AFTERWARD, 


USING 

POINTER 


NPPTH, 
NW2T >P 
NLCTMP 

tfl765, 
PSTOP, 
xcisir, 
X1S 1 T » 

I si tl;t 


TEHPORARY, 
, TE*PORARy, 
,Tf ^PflrtARY, 
LITEPAL, 

pointed 

ROUTINE 
ROUTINE 
, ROUTINE 
2M2 + K 


TO 'STOP* SYMBOL, 

which implements *get*isit*. 

which implements *isit* , * „ „ 

WHICH CHECKS FOR AND ACCUMULATES LITERAlS(AT RUNTIME) 
FROM &WORD MEANS AN N WORD LITERAL, 



















S?T 


.l.l.l.l'.l’.l.l'.l', 1.1.1', 1,1,1 ETC, CHALK IT UP TO 'LINE TOO K NG 

ptubig, poiw t eh to 'lime too long', 
pge t l=e,poiivte£ to return prom 'getlin', 

jCTC : ', ITS NO t t CA°R I AGE RETURN SO 

IF rs a DIGIT OR GO ACCUMULATE a LITERAL, 

ip I T S A LETTER, GO LOOKUP OR CREATE A VARIABLE. 

OTHERWISE IT IS QUOTED(OR UNQUOTED) TEXT, 

CHARACTERS PER WORD, 

TWO ZERO CHARACTERSCAT SIGNS DONT EXIST), 


REMPACK, 
TXTPAK, 
LHALP, 

| RHALP, 

I C*JUT XT, 
|DQJNTXT, 
MTXXit, 
PLETTER, 
07753, 
D*??* , 
042, 

THIST<T, 
N0M8LWK, 
, 032, 
f 07737, 

$ PXXCPl.r, 

1pxxt x ;t # 


SIXRIT 
ONE OR 


pack two 

E.T3 WITH 

and 

carriage return 
so does another 
then try 
where to 
literals 


PORCES END OP TEXT, 
DOUBLE QUOTE, 

FOR ANOTHER SYMBOL, 

GO TO MAKE OR FIND A VARIABLE, 


TE <P0R4«Y. 

R 0J T I ME WHICH 
LITERALS, 


SKIPS OVER BLANKSIEVERYWHERE EXCEPT TEXT) 


.1 THAI. # 

JUST1, 
ALL3, 


1UST', 

;pvi, 

PXXL I r i2, 
DIGIT, 

llOlfJ, 

rin . 


POINTER TO (CRLF) SYMBOL, 

POINTER TO (EXIT) SYMBOL, 

CREATE A LITERAL OUT OF THE FLOATING POINT 

defending on how many low order zeroes, it 

12 BITS, 

36 2 ITS, 

34 2ITS, OP 
0 HTS LONG, 

AJTO INDEX POINTER TO FLOATING 
POINTER TO ZERO LENGTH LITERAL 
a NUMCER IS TC BE ACCUMULATEDi 
TO TELL WHETHER IT SHOULD BE A 

Scan DIGIT by digit multiplying 

. A? " . 


AC, 

CAN 


BE 


ITSE, 
ITSP, 
NOTSGU, 
}7 6 7 3 , 

only:, 
endnuh, 

MULEXP, 

“ T A T'' 0, 
STaT‘ 0, 
r 01 G I T , 
ULXTEN, 
IVX*EN, 
PFL-'-G, 
;ECF' AC, 

isn ,, 

■027, 

74 ?, 
774 , 

plit^al, 

COMMON, 

LUP, 

NOT, 

IN, 


J counting 


POINT TEMPORARY, 

SYMBOL', 

SO SET 'SNUMFLG* AS A FLAG 
LITERAL OR A STATEMENT NUMBER'. 
BY 10‘, 0, 


THE NUMBER OF DIGITS AFTER A DECIMAL POINT, 
and WATCHING OUT FOR 'E' exponent; 

ACCUMULATE the EXPONENT 

EITHER plus or minus, 

LITERAL,(WHICH is NOT EXECUTED SINCE THE PPEV, INSTRUCTION 
MUiT SKIP), 

AvJ SU'HToaCT THE NUMBER OF DIGITS AFTER THE DECIMAL POINT, 

then scale t^e number up or down, 

MULTIPLY BY 10',0 OR DIVIDE BY 10,0', 

NDX COMES THAT FLAG FOR LINE NUMBER OR LITERAL, 
make a LINE NUMBER OUT OF IT, 

floating point temporary for adding digits are they are hit, 

MULTIPLY by 10,0 INSTRUCTION, 

WHEN ADDED TO 'MULXTEN' MAKES A DIVIDE BV 10,0 INSTRUCTI ON*. 
DECIMAL POINT FLAG, ' 

NJMBFP OF DIGITS AFTER THE DECIMAL POINT, 

SPACE SAVER WHICH CHECKS IF THE CHARACTER IS A DIGIT, 
LITERALS, 


pointer to literal maker, 
search through 

USER SYMBOL table for a given LINE number 
An.J if it is IN THERE return a POINTER Tfi IT 
OTHERWISE PUT IT IN THERE AND THEN RETURN 
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I 
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h 







AIM 

I'.’- 

* jN2*'0T;, 

If*, 


9 L1 MIT , 
9 XXTH£M, 

• 1ST, 

: aIeof, 

# 


./ 


4 , 

1 


JOTNOK, 

'JO. 


POINTS* 
P0l,NTE« 
POINTER 
THE e\o 


STOP, 

TOOlO'NG , 

deleted, 

getl^et, 


% 'LIN, 


1 

NEwir , 

NENCM^R, 


TUBIC, 


ajD go through the user symbol table again, reallocating j 
Space for a scalar fop each variable, \V! 

Aj.$u SET UP THE LOCATION COUNTER, PUSH DOWN LIST, READ POINTER, 
Few Table, and G0SU3 table for EXECUTION O p a 'RUN*, 

POINTER TO FIRST WORD OF USER SPACE(VAR I ABLE SPACE STARTS HERE), 

pointer to 'then' symboufakes line getter into starting 
the line with a line number). 

POINTER to 'LIS' PROCESSOR, 

TO (EOF) SYMBOL. 

to PERM, SYMBOL TA9LE(USER SYMBOL TABLE IS BELOW IT)', 

TO INDIRECT STATEMENT HANDLER!INSERTS LINES), 

STATEMENT IS EXECUTEABLE, IT IS NOT equivalent to STOP’, 

IT CLEARS VA°IA3lES, THE REaSON FOR THIS IS THAT AFTER A STOP, 

ALL ARRAYS WHICH WERE DEFINED AT THE TIME OF THE STOP REMAIN 
DEFINED!INTERACTIVE!), IF THE USER THEN CONTINUES TYPING MORE 
PROGRAM, he WILL EVENTUALLY COME UP AGAINST THE 'T00-9IG ERROR', 
HE has TO HAVE A WAY OP CLEARING HIS ARRAYS TO GET PAST THE 
ERRqp, and RATHER THAN ADDING A COMMAND, THE END STATEMENT WAS 
UTILIZED. SO THE WAY TO GET PAST THE 'TOO-BIG ERROR' IN THIS CASE 
TO TYFE A DIRECT 'END' STATEMENT', 

PRINT 'REAOY' AND GO TO WAIT FOR A TELETYPE COMMAND, 

THE 'line TOO LONG' MESSAGE, 

THE 'DELETED' MESSAGE. 

FO* returning FROM 'GETLIN' FROM OFF PAGE, 

AFTER inserting a line, fix up LINENO DEFINITIONS, 

Return, 

ROUTINE FOR GETTING A TRANSLATID!INTO INTERPRETIVE COOE FORM) 

LINE FROM TH r TELETYPE*. IT IS ENTERED WITH SOMETHING 
I J THE AC-TMAT SOMETHING BEING A POINTER TO 'THEN' IF THE LINE 
IS MEANT TO START WITH A LINE NUMBER! AS OPPOSEO TO A LITERAL)'. 

GET A new line, 

ONE CHARACTER PER WORD IN TRIMMED ASCII j 

WATch]KG out FOR J.75-ALT, 176"ALT, AND !CR), 

IGNORE NONPRINTING CHARACTERS(AND '*'), 

IF THE LINE IS BIGGER THAN THE BUFFER CAN HANDLE, PRINT 
'LINE TOO LONG' AND TRY FOR A NEW LINE, 

PRINT 'DELETED' AND TRY FOR A NEW LINE, 


IS 


fLTMOOE, 

BARRON, REMOVE PREVIOUS CHARACTER!IF 
CARfcEt, NO* TmFRF is a WHOLE 

sloc’P, scanning off symbols 


THERE WAS ONE), 

LINE OF ASCII IN THE BUFFER, START 
ONE AT A TIME, FROM LEFT TO RIGHT, 


GLOCP, 

,. v . 

HLOC°. 

bski=>, 

AMATO' , 

036, 

040, 

0122, 

076k. 

lOTHEW, 

9 

ptaglu, 

other, 


K& 


If THE p E is a match with THE PERMANENT SYMBOL TaELE, USE THAT 
AS THE DEFINITION! IGNORE ALL BLANKS IN THE PERM, SYMBOL TABLE)*, 


waIch OUT for 
TREATED AS IF 
literals, 


THE SPECIAL CASE OF 'REM'(STUFF AFTER 'REM' |S 
IT WAS QUOTED TEXT)’, 


POINTED TO WHERE To GO IF THERE IS NO MATCH IN THE PERM, SYMBOL 

table. 

POINTED To THE PERMANENT SYMBOL TABLE. 

there was no match with the permanent symbol table, 

IF THE BEGINNING CHARACTER IS A CARRIAGE RETURN, THEN FILL OUT 
the LINE WITH (EXIT)? and CHECK FOR a REAL hairy LINE which 
Cav OCCUR because of the fact that LITERALS CAN be LARGER 
AFTE* TRANSLATION than BEFORE, IF IT REALLY WAS A LINE LIKE 


/ 





















e t ive c?oe ts stored without wc 


ixto.%o' oo R ir N * THE UNE NUM0ER DEFINilTI0N s must 

IN't to LOOK THROUGH INTERPRETIVE CODE TOR A CARRIAGE 

?AI S ^Ae2c WHEN L00KING AT A LINE AT A TIME, 

IAL vA?ES TO bE HANDLED ARE QUOTED TEXT AND LITERALS 
ARE THE NUMERIC LINE NUMBER WITH THE NUMBER IN 
ANn,OPERANO+l AND SKIP IF OPERAND,OPERAND+1 IS LESS, 

INF USED IN INSERTION DELETION FOR SUE OPTIMIZATION 


PRIN-'ET,THI3 PRINTS it AS A NUMBER WITH A SPACE BEFORE IT 

PRf 'a r RYiJlMr S rft2 S il! VE ANI3 4 SPACE a ETER, REGARDLESS, 

PR ^| A ^PPT T J N ivr 0 o, 4 HALFWoRD OF THE QUOTED TEXT, 

jj.. PR I --LK, PH I i*jT ONE RLAMK OF THE *$ f FIELD FILL' 

|)PR1NC0M,PRINT BLANKS UNTIL COLUM$ 14,28,42, OR 56 

PRINSEM,TREAT SEMICOLONS IN PRINT, ' 

i 00773H, LITERALS, 

| 07762, 

LlNFl v, WHJCH DOES THE ACTUAL FIXING UP OF LINE NUMBER 

LFXl'J^ , ° EM iri0NS AFTER TH ^ INTERPRETIVE CODE WAS BEEN SHIFTED AR 

Will?, WH,CH 8KIPS T,LL C ‘ SRIAGE ,ETURN - 

MOrp-?M , Ty*j- C t3 ? *h«p N I P0INTER T ° END 0r PUSH DOWN LIST, 

* HORE to BE DIMENSIONED, MUST BE A HERE. 

?! T - Arr-o D ! M ntQ G ' ANri CALL THE EVALUATOR. IT WILL DO THE ALLOCA' 
EXI*. ApT;.® \ DIRECT STATEMENT COME HERE* AWLOCA 

PRINT carriage return, * 

EDIT, and LI^E FEE" 1 

AND GET a NEW LINE, 

so !n$ert R it, I,,ITW A lINE number# it 15 AN ' indirect command 

ir,-IiJiJ- R I? fI TH . ' 'LIS', OR 'SCR' DO THEM, 

er • y ~ IT IS ANi IMMEDIATE MODE STATEMFNT. 

SC " TCM# Tl?^I3f T V2^%2^ B 2fc UB c iZ HAVE KRO ENTRIES, A N0 T H E 

BMW HT_»PRE ti VE ; CODE 9E ; JUST 4N (EOr)t 

RUW, C U EAR all VARIABLES to SCALARS WITH VALUE 3.C. 

I , A NJ START EXECUTION OP INTERPRET VE CODE 

STA.^T execution from imput line buffer 1 

Wd: SSK^hSoJS! rgE 0 5^3 E 8vSSSi Y T*i[!?, c iif?;f e jriii® L 5» R ii 

^,i?^s%\ij £ R, s? L ? H rio?iT E A x? save ™ iM ,n . the svMaoE 

THcN clear THE VARIABLE SPACE,' 


















i '-y/ at';V 







OP cvpw ESb 1 0N f 
023, L IT £ o At.. 

C°* S 7' I aBuE F0 * StLiCTINB THE PROPER RELATIONAL SKIP. 
CETfif.DR.RouTT^Jf. WHICH TAKES THREE ARGUMENTS. \ 

POINTER To THE Symbol table entry FOR A VARIABLE. 
value cf subscript one’, 
value 'T subscript two, 

, P 2 PlTE:R INT0 THE VARIABLE SPACE CORRESPONDING 
Ty THE VALUE OF THIS VARIABLE, 


NOSET, 

nos:-: , 

ALLOC, 

ISDIU, 


II GSSl, 

I GSS2, 

I GDIM?, 

• pspacer#pointe« 

t 07774, 

:i 013 , 


c I •2EE5?E! CE CALLS r0R SUBSCRIPTS BUT T H E VARIABLE 

IT 5ETS oimensioneo ( 0110 ) o« ( 0110 , 0110 ,; 

lr l i 15 * OI0ENSION STATEMENT IN WHICH C*SE THE ACTUAL 

tehmr.Ste} H us*o 8 iS R get'dd!!' US “ ‘ S DIMENSI0N,M! 'formation; 


SSEH’ 
OEF, 


TO ' T 00*BIG ERROR' 

literals, 

u2- l f ??‘Sui22 T -. 0 S !T E A t ITERAL » ITS EQUAL T0 12 OCTAL if 
l>5? R * A 7e WERS 1 T ° T4E 00 SUBSCRIPTS START AT 0 OR i» 
PRINT 'SUBSCRIPT ERROR' 4 * 

scans a 'oef' statement and saves the address 

PSKIOIT PHIJ,t5h L J« E in ' uSERrN '« I T ignores the whole line, 
nlvll } T , uV H l Z rJ ° PLACE; WHICH SKIPS THE line; 
uftDt-r* £ 0u i? s I HE ^ooress of the active def. 

4 opl*«l» part of the read, there must be a 
,*EAD, GET the VARIABLE to STORE into, 

switch to reaq-data location counter. 

and LOOK FOR 

S l JlTrw I flA?2 M T-» D SIi, S ° EV *LUATE ^(EXPRESSIONS ARE OK) 

*; * ACK T ° RPA >- location counter. 
m m A ,J " T0 " E th? variable, 

search, search for some 'data' statements; 

dataepr.ii;.^.!: iassn?:"" ra ' Dm ' the * 


the 


HERE 


J SSOMi 


LOCTMP, 

getblk, 

GTRKLP, 


ABCPEF, 

BCDLPG, 


PPFOPi. I .POINTER 


temporary, 

ALLOCATES A 4 WORD BLOCK FOR SYMBOL TABLE. 
nl It S I2,c° VE: THE PR0GRaM (CODE) DOWN 4 WORDS 

cosuJ’TlSte ^fHU9 EL0e * TI0N or THE F0 " TABLEl 

LITERAL-, 

temporary. 


in ORDER 
AND the 


TO 


TTY, 


'■NOT'-.-OH 


D 


MOVE 


INSERT, 



! *?or>5rKi ,CT JS?/ TTV ' WHICH TYPES AN ASC H CHARACTER AS 
T^- P?NMAMrMr'eIlii« M i Y0E °VG R LAID AND THE NAME CHANGED IN 

NOTE P THAT N iT' t| Y m-T I A |vmoi J° i22T °J HER rHHEE CHARACTER NAME', 
L, L .;- AT * T IS UUoT A SIMPLE JMS'o TO SUBROUTINE WHICH 

rtU J l L ^ T IN ACS » ACE# AC1.AC2, AC3 AND RETURNS ITS VALUE 

™ AT STARTS WI ™ A L!NE NUMB ER IS NOT TO BE 
IF The line NUMBER IS DEFINED, 

^ 0NS E H5y S K 9 f N SMTED? FR0M THE lNTEnpHETIVE «t> E BEFORE 


insert 
l rpys' 

MJiMMzL — 


THE LINE in 
I? THE last 


'LINBUF' INTO THE INTERPRETIVE CODE, 
PLACE THAT WAS STORED IN TO CREATE IT’, 













_ 










SGMi 

h n s c ■ : 

GE T CW. 

! PUTCH. 


'SON' 


!sta*t\ 


AS 


EVA w , 
EVALl.j, 


W«ERE IT IS', 

IF 'SCR# WAS JUST 


T Suf. ; I N, 
I'.GBTCPR, 
NOPATEN, 


TO inside itself’, 

ENTERS HERE, 

THE stacmsame precedence AS 


■ ONEOK , 
IpOTSS, 
fWOTlhP, 
ONESr-, 


TWO* 


c. n 


.• NOTVAP , 


ROJTINE WHICi DOES 3 aSIC 
floating point 

ZZT '•HARACTL 5 PROM tty ROUTINE. 

Pot ThARACTL’ TD tty ROUTINE, 

t RaCk :f :oi1 hn POINTER so print i 
STa ”TI\5 ADDRESS, LEAVES MACHINE 

ty * r r tVALUATCRE ROUTINE, IS JMS#0 

^ ^ h a£ A '- s A J,MS T0 eval and 
P jsH A BPGIN'IING TERMINATOR on 
end t expression), 
j[T is \ UNARY MINUS, 

rrr ? A- SH ftI?S SPCCIA, « c0DE POR UNARY MINUS ON THE STACK 

‘\f PXHHrcJJnS*??! 0 ? INCLU0<:S A UNARY MINUS AND A UNARY PLUS)’ 

A m'i^T!s N AN^pep S A ^! 0 AN ° PERAND EVALUATED RECURSIVELY^* 
W-iICH CAM re SU9SCRJPTED(M0RE RECURSION) 

By one OP two SUBSCRIPTS', 1 * v 

C£T ThE ADDHESS OF TmE VARIABLE SPAfP’ 

»-15 K r^ ,E rt2 0 T E ! S r THE VARIABLE SYMBOL, 

A4j ThE FIR 5 T SUBSCRIPT VALUE. 

ANj THE SECOND SUBSCRIPT value’. 

a LITERAL Is an operand, 


f.lS!TFLN,A*«j a FUNCTION is an operand, 

anything else gives a 'syntax error', 

'r' ^ I ^ A J P ;? UL , CASE UNCTION WHICH MUST SKIP 
FvA IS Fix (A KEYWORD) CAT 'A'<A VARIABLE), 


OVER A VARIABLI 


-jpjfc, 


JUMP, 
AB, 
04014, 


04217 


get the argument 
j.ms through 
this jump table, 
literals 


AND 


ixcmust , 

XMUST, 
S.XERR 1 
ATLINE. 
fncxit, 


IMPLEMENTS 'GET+MUST 8 E', 
IMPLEMENTS 'MUSTBE'*, 


/ 


'SYNTAX 
THERE 


error AT line 

MUST BE A ')* 


rc/rcpp, 

ttCNE, 

t. ;• .. 


250#, 

AS THE CURRENT 


the pcltine which 
the °ci<tinf which 

PRINT 'SYNTAX ERROR', 

Text for MESSAGES LIKE 

when a function returns, 
symbol. 

waging just gotten an operand 

^ END 0r LINE > *UST NOW BC GOTTEN, 

ju5 ? rR5« c |}ISSi« , ?„r E x”E*!I??oj; o sr. , S!!.8I,: Hr SYMB0L IDENT,r,E 

B they si*CK C E E vE E m E H?NG T ^o S get R another okrSno" ™‘ N THE PREV101 
( OIT-.cn,OTh^^3E h 0 o c THEeP ? EV.0US n OPER. to R now. 

r$feo? ,,eR ‘ T#R JUHP T4BtE> 


pTrvr, 

0 377, 
OJUMP. 
PLUS, 
FADE XT, 
MINUS, 

> If ER, 

Tap, 


floating subtract, 
FLOATING negate, 
floating multiply, 
floating divide. 


TEMPORARY FOR DIVIDE!INVERSE DIVIDE) 


HTMP,FLOATING POINT 

mi?. literal, 

5 LA?^ * ft f t SS«L-( *£tK? C i ‘ ?r X Je ENDE S S^enoj.*}, 

«lrl P ‘l Ul . ; 0‘ ,R fCT r LnATI'IG'poiNT U SK!B 0 rOR'THE S REL»TIONAL 
’ * v£ CL*TTNG the BEGINNING TERMINATOR AS AN OPERATOR MEANS 




END 
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?r 






Mi 
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' v '7v ' ; 

i • r • .. ■■ o,::r 

-T : ’\h />V; . ;• ' • • ‘ 


. iv-.t" 

li; 


m 


> : ■' 

X> , 

i" r# iv - 


•li 


XEXECU, 

FOR, 


JmaT LINF NUMBER', IF .TRUE, AND NOT a LINE 

EXECUTE IT AS THE BEGINNING OF A STATEMENT; 

1 0 I i>l T £ n f 

NE*T S v M c OL k 'UST BE A VARIABLE, ■ 

If TW£ VARIABLE 15 ALREADY IN THE FOR TABLE, 

LUFF i 

INLupf, then ccm^resr it cjt, 

NOTfere.IF THERE are ALREADY 8 VARIABLES IN THE FOP TABLE,' 
T.-iE\ DIVE The 'FOP ERRORS SINCE 8 IS THE LIMIT, 


: 


H'-: 


NEXT S Y M-10L M U3T BE AN 


* M 

. > • if 


" V ' 


I ,? 


•v ^ ■ 


r CLLDHL*0 BY AN EXPRESSION, 

S£T THE FOR VARIABLE TO THIS EXPRESSION, 

CHECK ?HAT THE NEXT SYMBOL IS 'TO', ■ ^ 

TriE:, PUT THE VARIABLE IN THE FOR TABLE ALONG WITH A POINTER 

* w n £ R k. t f •>.. , *• -v * 

SKIPIT, Skip THE CODE UP TO a (CRLF) OR '\>, 

I FCR£ C f, pri jt 'For error', 
j Oil, literal, ; 

GOSU8, NEXT tmo SYMBOLS MUST BE LINE NUMBER AND <CRLF) OR / V , 

CHEC*' THAT THERE IS ROOM IN THE GOSUB TAPLE, 

IF .JOT* PRINT 'GOS'JB ERROR', OTHERWISE PUT THE RETURNaPoINTER 
i . IN the GOSUB TABLE, ANO DO A GOTO IT, 

/GOTO, NEXT TMO SYMBOLS MUST BE LINE NUMBER AND (CRLF) OR A', 

THE new LOCATION COUNTER IS GOTTEN FROM THE LINE NUM9ER, 

MSGfcEMO,THOs complement pointer 

OEEPF^R,PRINT 'GOSUB ERROR' 77, • 

COBOTH, ROUTINE USED BY GOSUB AND GOTO TO GET A LINE NUMBER, > 

\ IF IT IS DEFINED. ’■ 

|OEFF, PRINT 'LINENO ERROR' IF ITS NOT DEFINED, 

isi tdf, a vjc make sure that the next symbol is <crlf> or '\'i- 
vaptemp,floating point temporary used during tor-next, 

PXFCRLI,POINTER to for table for auto index, ,v 

FINDIT, ROUTINE WHICH SEARCHES THE FOR TABLE AND SKIPS WHEN AND IF ; 

IT FINDS WHAT it IS LOOKING FOR, , ‘ 

FINDU'P, 1NJEX1 IS LEFT SET UP, 

FOUND, A.'JJ SC IS GQTEMP (AS THE COUNTER), $ 



•• 

' '/NVr 


’i’l'ui ■ 


RETURN, 




' .AT ;• 


SJJCKn,ROUTINE USED to 2ERO VARIABLES', (MAINLY A SPACE SAVER), 
NEXT, N£aT S'MBOL m UST BE A VARIABLE’, • 

Which IS in The FOR table, else PRINT 'NEXT ERROR', V; 
FOLLOWED, BY (CRLF) 0® 'V, 

EVALUATE FROM POINTER IN FOR TABLE’, 

TRYSTCP.CHEc 1 ' FOR 'STEP' AND IF SO EVALUATE THE STEP, 
m U>T EE FOLLOWED BY (CRLF) OR 'V, 

GOTSTEP.STEP,IS IMPLIED ONE, 

A n '\ ' T 1 |L" C? V r* r» 


,? •*; 


i >. . V f) * 

t i- 

,f,> *h' A 

■ C V 


'V. 

J& 


ADO THE STEP TO THE VARIABLE,AND CHECK TO SEE IF THE LOOP 
, JS EX'DED, IF NOT JUST CONTINUE EXECUTING FROM HERE. -! 
LOCTEMp;Tr^^lRv ( hErtT ™ C L0CATI0N COUNTER TO AFTER THE'NEXT, 
PFINOIT,POINTER to FOR TABLE LOOKER UPPER, 


i 


h v 1 
l . > vf 




NEXTERP,PRINT 'NEXT ERROR' , 

RETURN, next DTM^ol must BE (CRLF) OR '\C, ; 

CHtC ,/ r 0P RETURN BEFORE GOSUB, IF ITS NOT, THEN SET,TthE 
LOCATION COUNTER from IT BY POPPING. , 

HRETNEPR,OTHERWISE PRINT 'RETURN ERROP'*, V 

HCOLIST,NEGATIVE POINTER, • ' ( -.'Vv. 


' r-j’vU: 


f foplt'm, floating, point temporary for for loop limit. . 

FOPSTEP,floating POINT TEMPORARY FOR FOR LOOP STEP(MUST DIRECTLY PBECEED 
A SCRATCH LOCATION WITH RESPECT TO NEXT), 

ROUTINE WHICH DOES BASIC MNT'', 


|int, 


...1,^ 


m. 


«,i 




,:LL 














I 

i 


i 









L I T g'’ L , 

? 3^ r ‘=?rZ 1 r; G POINT PACK To CHECK roR H&RC OPERAND* 

J,2wT,v - ^ ICH A0DS <AC1,AC2 I AC3)*(0P 1 ,0P2 < 0P3) 

numper ° efin,tions 

literal / 0 RnuTIfJE WWICH CHECKS TO SEE ir A lime or block p 

p?fllrr! 1 ° TH£ 00 SU 3 /RETURM LIST, 
u2-n T u?ru°- C e RR£ ' l!T GOSU0 ^TURN, 

sSSSnCxiSe'iSvSc*Ti 0 N'ro*aSi* ??\ B 5 ;:i Me NE * T PR05R ‘" EEEM ' 

cu^ektLy beinS^IoSm Jt® certa,n PP05ram elehent : 

^y° CAT IOM TO GIVE A ' SYNTAX ERROR' ip a rrnTim 


KEYN? 

SJU^P 

GETVA 


P^NT I "func?ION N ERr5r E * rUNCTi0NS p OlNT 
PRIMT * TOO-aiG ERROR * , ’ 

Routine to check that a i —- -- 

M vL o-? GRAM 100 B IG TO PIT, 

' A <*LOC' MUST CONTAIN) L„~ 

?***. then is doesn't pit; 

IF it DOESN'T pit, PR I NT 'TOO BIG, 

Ao Ai.T«MQ[)E, * 

-?" TI rL--i CH D0p:s BASIC 'ABS'', 

-Aww EXPRESSION PVALUATOR, 

-'*IrlI H 2 l UL VUST B£ 'THEN'(WHICH IS 

rp tA IL1 r THAI * '-Sans .true,, les 
.trvE, and the next symbol is a 


LINE OR A SYMBOL TABLE 
MUST CONTAIN) LESS THAN 'CODELOC', IP 

LINE IGNORED' 


PAUSE 
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*&£&i 


| fiP-T < # 

| HPTh ' 
p2# 

I FORC.T, 

I snuhflg, 

; 

%l *kk 

07772, 
012, 
|03737, 

gOLDOP, 

'ADDRESS, 

07f'?, 
017, 
i7b4, 
l 377, 

7, 

PERAMQ, 

^«T. 

ER^OR, 
'PSXE&'<, 
■PEVAL, 

pcetadd, 

XEfUT, 
USr, 

PPOP, 
PF1X, 


lime translation process, 


this POINTS to The current 

the current 


DURIUS THE 
CHARACTER, 

p^^v^t L li ^ e TKa ^ation process, THIS POINTS to 
L IT,-Pal T :' rVB ? L T4ULE ENTRY BEING 'MATCHED AGAINST, 

?T-'iIsmco? M, ** R 0r r0R L00PS iW I eH HAVE 4E '''' ) 

WHETH^hf ‘■JifErTRANSLATioN PROCESS, THIS IS US£0 To TELL 
XXTO^U, OR XXGOTO U SCANK,ED SY MBOL WAS XXCRLF, XXTHEN, 

literals, 

12 

Tu?c N ?«; E ncrr 5 ?I 0N Equation, this is the previous operator' 
BaSit VARIABLES AN lNDtRECT P0INT ER for fetching and STORING 
literals, 


PGCTCPR, 
S GET ORR, 
’STOVAR, 
’GETVAR, 
PRIA/rx, 

GET - j_K, 
SLOOP, 
OUTNUm, 
EC I T, 
>ty?4v , 
FNt w , 
STICK!, 
NOM'RLN, 
PR I *■'('M , 

getlin, 

y 77i , 
3LJ 'T, 

LU’M , 

s, 

A ‘, 


During 
which i 
pointer 

POINTER 

pointer 

pointer 

POIm t EB 

POINTER 

POINTER 

POInTEW 

POINTER 

UScEI'L 

pointer 

pointer 

pointer 


pointer 

P o I * T r f, 
P 01 \'TcN 
PO I TrP 
pointer 
pointer 
literal 

p o inter 

pointer 

pointer 

POINTER 
pointer 
LITERAL 
POINTER 
POINTER 
LIT § c A u 


S x ”ro^ 0 S*5S A ^*T T i? N juIIIKt i ’jp I M^jl! N * P0,NT TEMP0P ‘ PY 
Ta THE T i^« T ^sl5!sl B BSg??S! au0TED TE)(T IN0,C ‘ T0P - 

'SYNTAX ERROR * 

EXPRESSION EVALUATOR, 

T^E ADDRESS GETTER OF BASIC VARIABLES. 

THE INTERPRETER MAIN LOOP, 

PUSH DOWN LIST PUSHER, 

P"SH DOWN LIST POPPER, 

^NORMALIZES THE FLOAT J NG AC, 

twt^ U ?u? R ,i?I I o G SI U CE * t STURMS I NT (AC)-INDEX 
INTO EVALUATOR WHERE THE OPERAND WAS JUST GOTTEN’ 

Tn T cnnrt L ,r A J°? WHERE ™ E 0p E R AND MUST 9£ GOTTEN, 

T0 R J, U Ii %E WHICH STORES THE VARIABLE SET UP BY 'GETVAR* 
hOUTinE USED FOR ASSIGNMENT, REAQ, AND INPUT, 

routine fqr printing packed ascii ' 

1 ALL0CATES FOR U?£P SYMBOL TABLE’. 

-, L00P line translation PROCESS, 

KOUTINE which prints A FLOATING POINT NUM3EP. 
oVSTE m LOOP WHERE BASIC WAITS FOR A COMMAND, 


TO 

TO 

TO 

TO 

TO 

TO 

TO 

TO 

FOR 


IT IS ONLY 
ORIGIN', 


TO 

TO 

.TO 

TO 

TO 

TO 


TO 

TO 

TO 

TO 

TO 

TO 

TO 


a, 


' r UNCTION ERROR', 

KrUTlNE USEO FOR SETTING UP VARIABLE SPACE 
HCOTlNEWHiCH IGNORES BLANKS OUR NG LINE TRANSLATION' 
routine which prints a line number, l a slation * 
Routine which gets a translated line FROM the tty”, 

bEGIMNJNG OF PUSH DOWN LIST, 

CURRENT COLUMN WHICH THE TELETYPE IS PRINTING IN, 


■| i 


ANORrt, 
A R1, 
fL4, 

NO , 
|FC, 


p?) IS floating point constant 10 -. 0 , 

r/LDATlv« POINT NORMALIZE ROUTINE, 

Oj .; to Routine Which right Shifts aci,ac 2 -,ac^ 

PO ,tc, to »: t rr,E w,ch left shifts: 

pn{'.T T 5-;U M!,ST p "«EOE 'ZERO')! 


NttfiP* 
































i 









JL 

















i?PlPP^P§IiPSl 


ffissffisisas&jtii 


077. :. , 
D2l5, 
12lZ, 
4772:. 
177cf , 
07763, 
0260, 
07771 , 
0177, 
07000, 
INDEXl, 

index:, 

JpC3, 

| AC?, 

I, ACl, %/h 

I 0P3, 

iop?, 

I OPl, 

A C 5, 
ACE, 

| OPC, 

mn, 

I ov, 

TMP, 
PGETCH, 
PPUTCH, 
OIHFLAG 
WINTER* 
POL, 
PUNDIT 
iML I NRIT 
! MENGLIN 
PRTEMP, 
§OECEXP, 
§0256, 

| pnumbit 
Ilocctr, 
IREADLOC 
PARGERR 
I WORD, 


literals(constants wwich never change) 


AW AI to INDEX, ESSENTIALLY SCRATCH', 

AN AUTO INDEX, ESSENTIALLY SCRATCH', 

LO* ha.OER MANTISSA OF THE FLOATING AC*, 

(AC 3 .AC. 2 , AC 1 , 0 P 3 , 0 P 2 , 0 P 1 ARE REFERENCED AS A BLOCK!’) 

MI ) '•RCT.fi MANTISSA CF THE FLOATING AC. 

HIC.H ORDER MANTISSA OF THE FLOATING AC, 

L 0 '« ORGi.R MANTISSA OF THE OPERAND IN FLOATING POINT PACK, 

Mp ..ODER MANTISSA OF THE OPFRAND IN FLOATING POINT PACK’, 
HPh ORDER MANTISSA OF THE OPERAND IN FLOATING POINT PACK. 
sign of the floating ac, 

EXPONENT OF THE FLOATING AC, 

SIGN OF THE OPERAND IN FLOATING POINT PACK, 

exponent of t he operand in floating point pack, 

OVERFLOW WORD in the FLOATING point PACKCFOR ROUNDING), 
TEMPORARY used BY the FLOATING point PACK, 

PQINTEF to the get character routine, 

POINTER to the put character ROUTINE, 

,flag USED while subscripting to tell whether IT#S a dim STMT* 

0 EF 1 N 1 1 Io n OF THE FLOATING POINT INTERPRETFR ENTRY, 

ACTIVE P 01 NTFR FCR FILLING AND EMPTYING THE PUSH DOWN LIST*. 
iPOlNT£f TO THE LINE INPUT BUFFER, 

t wos com°lement of pointer to the line input buffer, 

,TWJS COMPLEMENT of POINTER to END OF LINE INPUT SUFFER, 
TEMPORARY UbFO 8 Y TEXT PRINTING SUBROUTINE, 

TEMPORARY decimal exponent USED in I/O CONVERSION, 

iP 01 NT£f» JO NUMBER PUFFER(PART OF OUTPUT CONVERSION). 

location counter of interpreter, 

.LOCATION COUNTER FOR READ/DATA SCANNING. 

.POINTER TO 'ARGUMENT ERROR ' , 

HOLDS CURRENT WORD OF INTERPRETIVE COOE, 

indirectly gets a value which identifies 


MEANS 


referencing THIS 
this language element*, 


024V , 
LINENO, 


1030 

MEANS 

2030-2007 

MEANS 

7030 

MEANS 

4000-3777 

MEANS 

6030-7777 

MEANS 

literal. 



A LINE NUMBER 
A VARIABLE 
A LITERAL 
QUOTED TEXT 

A SYSTEM SYMBOL SUCH AS i+t OR 
A STATEMENT WORO SUCH AS * LET ' 


POJN 



ER to the 
Beginnimg of a 
TEMPORARY used 
LITERALS. 


LAST LINE 

line, 

IN goto and 


NUMBER ELEMENT ENCOUNTERED AT 
GOSUB, 


'STEP' 

OR 'GOTO' 

THE 


during the line translation process, 
CHARACTER which is to be TRANSLATED. 
DURING the LINE TRANSLATION PROCESS, 
DURING the LINE TRANSLATION PROCESS, 
TRANSLATED S v MBOL goes’. 


THIS POINTS TO THE FIRST 


THIS 

THIS 


POINTS 

POINTS 


TO 

TO 


WHERE The 



* 





1 









<lTt AN ASSOCIATED ENTRY I N THE VARIABLE SPACEl 


>»«•«< 


A 

f 


OPT IQ WAL*• * 

f 


; 

V 




THE variable: NaME(TWO CHARACTERS or trimmed ascii,) 
w ir,h WORT OF THE SCALAR CELL 

I 

MIDDLE WORD OF THE SCALAR CELL 

tow WORD OF THE SCALAR CELL 

HICH word OF APRAY(B) OR ARRAY(0,2) 

MIOuLE WORD OF ARRAY(0) OR ARRAYtf0»0) 

LOW WORD OF ARRAY( 0 ) OR ARRAY(0»(M 
high WORD OF ARRAY( 1 ) OR ARRAY<0ilJ 
ETC. 




\ 


I "* 1 b r TR 1N0S(AS IN PRINT STATEMENTS) ARE TRANSLATED INTO A 
;<PECUl p OI.nTE» FOLLOWED BY TRIMMED ASCII ENDING WITH\ A HERO CHARACTER’. 

’'WOW IS THE TIME** TRANSLATES INTO I 


XXTEXTH?16ll727|4011)2340j2410|8&40t | 4*j, 115051 42001 


IF END OF LINE IS ENCOUNTERED BEFORE A SECOND QUOTE, END OF TEXT IS 
FORCED, 


translated INTO 


LIT£PaLS(FLOATING POINT NUMBERS IN BASIC) ARE ,„ Wfc „ _ w 4 , M 

i^jrECIAL POINTER POLLOWED BY FROM 2ER0 TO THREE WORDS* OF THE ACTUAL 
:OCT*L of THE LITERAL, 1 


wm f 

p 

translates 

INTO 

X X L I T 0j 

1 * 5 

TRANSLATES 

INTO 

XXL I T 1T 2016 

5.5 

TRANSLATES 

INTO 

XXL I T2j| 2035) 4000 

*5535 

TRANSLATES 

INTO 

XXLlT3il2207|7777|400f 


THE LUMBER o r WOWDS COMPRISING THE LITERAL IS DETERMIN'D BY WHETHER 


XXLITtf, X Xu IT 1 , XXL I”2 OR XXL IT3 PRECEDES IT. THE LITE 
WITH ZERO BITS, ’ ' U 


wli 


p ROG°AM NARRATIVE 

f|«« 


*AL IS FILLED OUT 


V 


L: , POINTED TO THE NEXT FREE WORD IN VARIABLE SPAci, 

• „ variables range up from the top of the systemroot 5400 ) 
CODc-LiC ,pointer to the beginning of the interpretive- code, 

PSYMTA 8 ,PO 1 NT£R TO THE BEGINNING OF THE USER SYMBOL TABLE, 

NSYMTAD,0NES COMPLEMENT OF THE NUM 8 ER OF ENTRIES IN THF I 

user symbol table, j 


m 




















•tUSSft 
| VARXp 

VAR.) 

rE%r 

0 

0 

/X/ 

/USERR 

/ 

VARIABLE SPACE 

variable named 

'X' 

ws • & 


/ 

VALUE 0,0 


I 

1 VART, 

P 





text 

0 

0 

/T/ 

/ 

variable named 

* T * 

VARf, 


/ 

VALUE 0,0 


V 

text 

a 

||| 

/ 

variable named 

t-if 


V 

0 


/ 

VALUE 0,0 


m:. ' : , 

f-Z • ’. 

0 






ONF Wosn T o-t,°-»i^rT?^ ECT i VE H . AS THAT THE INTERPRETIVE CODE SHOULD BE 

if the cSs ° ««?t e ?k%w 

?P0fNTFR<; S ^?2 L ?ut I o5 o ^!„ " * <B INT INPUT ETC * ARE TRANSLATED into 

TS ) rtrATr~ N I=;nn5% PtRMANE ^ T SYM001 - TABLE, THE PERMANENT SYM30L TABLE 
A/AMP? C Qnr' J vL 3 pAGES FP ° M TH E TOP OP CORE# AND THE SYMBOLS HAVE 

PROGRtM^ CUWWT r ° R * 6CUT HALF THE W0RClS IN tHE C0 ° £ SECTION OP THE S»HPLE 

THF USFB L i»M C !!! iM T^, S r 4ND y 4R '*gLES APE TRANSLATED INTO POINTERS INTO 
IN THE E U R SL ? M ??l; e J L AnE ^ L B1 I q U E E J T S^ EE s A t D ““.“HEN NECESSARY. ALL ENTRIES 

TRp- CONTENTS or A LINE NUMBER ENTRY AREi 
• 3 

l .POINTER to WHERE THE LINE IS IN THE CODEtEERO ir UNDEF*.) 

l . THE PICH ORDER WORD or THE LINE NgMBER(2A BITS,) 

: THE LOW ORDER WORD Or THE LINE NUMBER 

wH , « 1 \' * ' 1 * ' « ’ '■' ' l' 4 *" 5 


w- 


the contents or a variable name entry arei 

iM 


l 

+ m + m 0$ m f* t 


•f m • m 

d 


\ 


^pointer INTO the variable SPACE 

l . THE ■'AXIHUM PIRST SUBSCRIPT+1 (HERO POR A SCALAR.) 

THE MAXIMUM SECOND SU0SCRIPT*1(OR EERO,) 
























XXEOF 


• (USE* TABLE - ) 


SYRl^, 



D£~100 

0 


144 

SYMX, 

10^0 


VAflx 


0 


0 

SYM1^4 # 

0 


DEFi0f4 

0 


150 

symt, '* / 

1000 

IHPrkK^^ ' .v!t '2. i 

VA&T 


i 


8 

(* 


Willi, 0 

oe^iip 

flf 


jggg'. 

P\ ,. : 

SYM140, 


154 

0 


D£Fi43 


iYMi20 ( 


2l» 

0 

0£fl2Z 

8 

17 4 

symujj, 0 

DCF U0 

0 

202 

|.SYM1< 4, 0 

0£Fl65 

0 

24# 

SYmi, 1^00 
V aRx 
0 
0 

SYM170, 0 

52*170 

0 

252 

SYM180, ? 


D Z*l*Q 


0 

264 

PW190. ?■ 


D-TFl^f 

7 

SYM200, 0 

O£F230 


(EOF) 




/LIME NUMBER AND VARIABLF Table 


/ 

/ 

/ 


/ 

/ 

/ 


/ 

/ 

/ 


/ 

/ 

/ 


/ 

/ 

/ 


/ 

/ 

/ 


/ 

/ 

/ 


/ 

/ 

/ 


/ 

/ 

/ 


/ 

/ 

/ 


/ 

/ 

/ 


/ 

/ 

/ 


/ 

/ 

/ 


l!e S f srlf TRY 1S 4 LIN,£ DUMBER 
ITS DEFINITION 

ITS PRINT VALUE(24 BITS) 


THIS ENTRY IS A VARIABLE 

ITS definition 

IT IS A SCALAR 


JJi s «£l! TRY IS A LINE NUMBER 
ITS definition 

ITS PRINT VALUEC24 SITS) 


THI S ENTRY IS A VARIABLE 

ITS definition 

IT IS A SCALAR 


THIS ENTRY IS A LINE NUMBER 

ITS definition 

ITS PRINT VALUE(24 BITS) 


J?i s «£i? TRY IS 4 LINE number 
its definition 

ITS PRINT VALUE<24 BITS) 


!5i S J!? TRY IS 4 LINE NUMBER 
its DEFINITION 

ITS PRINT VALUE(24 BITS) 


THIS ENTRY IS A LINE NUMBER 

ITS DEFINITION 

ITS PRINT VALUE(24 BITS) 


THIS ENTRY IS A LINE NUMBER 

ITS DEFINITION 

ITS PRINT VALUE(24 BITS) 


THIS ENTRY is a variable 
its definition 

IT IS A SCALAR 


ENTRV is A line NUMBER 
ITS DEFINITION 
ITS PRINT VALUE(24 BITS) 


ENTRY is A LINE number 
ITS DEFINITION 
ITS PRINT VALUE(24 BITS) 


J?i s *£U TRV IS 4 LIK ' E number 
its definition 

IT3 PRINT VALUE(24 BITS) 


_ 


!** S ENTRy is A LINE NUMBER 

ITS DEFINITION 

ITS PRINT VALUE(?4 BITS) 


1 


1 


ml 

irlll 


f 




If 








H 

ik 


i 


h 


i 


t 

I 




- 








DEf;<2 


I 


DEF16Z, 


x x: •,(.»•* 
S y ';4,: 
XX i - 
$ Y ' f 

XX W £ 
XXuITl 
2314 
XXTmTM 
SY v 1 S0 

xx:rlf 

. OEFl-jZ, Sy.y;*;” 

XXUET 
S Y 4 T 

| *XE j 

XXuITl 

2314 

XX3l*SN 

S Y 1T 
XXwRLF 
S Y*lSJ5 
XX“09 
sy 4i 
XX£ j 
XXUTl 
2014 
XXTO 
XXUTi 
2205 
XXiTFP 
XXi-ITl 
2U6, 

xx:uf 

7a 

XXw.T 

Sy 

XX. J 
3 y 4 x 
XXH.’JS 
Syif 

XX JI.45H 
XXCPF»4 

sru 

XX 3 ‘J':S 


m 


I 


jpgjg 

0CF17J 


3yq 
xx:l?.se 


TEF. 


' I 


XKCRLF 

Sy:- 1?2 


£ r r-v 


1 ' 

xx'.cxt 

Sv 1 | 

Xx;r<|.F 
f? y y i o ? 

XX**f<! (vT 

x x r l x r 


2Y IX 
X<: V m e 
DE*3 y ^ r 3 


xxi n 
xxzrlf 


/ 

(EOL) 

/ 

143 

/ 

IF 

/ 

T 


<• 

/ 

1.3 

/ 

then 

/ 

163 

/ 

(EOL) 

/ 

133 

/ 

LET 

/ 

T 

/ 

. * 

/ 

1,3 

/ 

/ 

/ 

T 

/ 

(EOL) 

/ 

163 

/ 

FOR 

/ 

I 

/ 

■ 

/ 

1.0 

/ 

TO 

/ 

5,0 

/ 

STEP 

/ 

2,0 

/ 

(EOL) 

/ 

170 

/ 

LET 

/ 

X 

/ 

■ 

/ 

X 

/ 

+ 

/ 

T 

/ 

/ 

/ 

( 

/ 

T , 

/ 

♦ 

/ 

I 

/ 

) 

/ 

(EOL) 

/ 

160 

/ 

NEXT 

/ 

I 

/ 

(EOL) 

/ 

193 

/ 

PRINT 

/ 

"OUTPUT I 

r= , u T ib”/ 


/ 

\ 

/ 

X 

/ 

(EOL) 

/ 

200 

/ 

ENO 

/ 

(EOL) 


IS 


Mil! 


















ED U SYSTEM ib ( 4 * BASIC) 

FORMAT SUl , T A B^ T roR T rAST L lNTrRPBrrATf I ftf *! - IT ,S TYPED lNT0 AN 1 NT F R NAL 
IS feASlC TO THE UNDERSTAND I Nr ar^TMT Ponrl RUN TIME -‘ SI NCE TMJS FORMAT 
FIRST, to illustrate Th£'^?^ c, C I T J^ P no2 GRA i! MIN6 ' IT WI ^ BE DESCRIBED 
I T s INTF.RA/AL REPRESENTATION:^ 1 ED FORM, HERE IS A BASIC PROGRAM AND 


1 40 


100 INPUT X 
104 LET TsABSCX) 

u» iriM-ts then 

130 STOP 

Ir T<«1 THEN 160 
150 LET T«l/T 
160 FOR I«i to 5 STEP 2 
170 LE T X«XfT/(T+I) 

180 NEXT 1 * 

190 PRINT "OUTPUT IS"lX 
200 END> 1 


•(CODE) 

DEF1U0, SYM100 

xx input 
symx 
XXCRLF 
DEF104, SYH104 

xxlet 

symt 

*XE<* 

XXARS 

XXOPEN 

symx 

xxclose 

XXCRLF 
DEF110, SYM110 
xxi F 
SYMT 
XXST 
XXLITi 
2 , 4 * 4 
xxuparr 

XXMINUS 

XXLIT2 

2047 




/INTERPRETIVE cooe 
/ 100 


XXTHEJU 
SYM 110 
XXCRLF 
SYMIZCJ 
SYMT 

xxeo 

SYMX 
XXCRLF 
DEF130, SYMlSO 
XXSTOP 


/ 

INPUT 

/ 

X 

/ 

(EOL) 

/ 

104 

/ 

LET 

/ 

: 

/ 

/ 

ABS 

/ 

< 

/ 

X 

/ 

) 

' 

(EOL) 

/ 

110 

/ 

IF 

/ 

T 

/ 

> % 

/ 

2,0 

/ 

* 

/ 

m 

/ 

15,0 

/ 

THEN 

/ 

140 

/ 

(EOL) 

/ 

120 

/ 

T 

/ 

■ 

/ 

X 

/ 

(EOL) 

/ 

130 

/ 

STOP 
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J. Duffy 


start^f in wh Ba8iC/RT fr ° m fi6ld X ' At Wil1 automatically 
u ,® fc ^ p> " hen a user Action or command is to be y 

the ; u tomatic a f? ^ pea . must be in which case 

has 1?£ ^ startu P 18 undesirable, if the LAB8/e 
r_ , v f r more ' P ut the binary loader in field 2. 
fielr! b S th 1 . t f PeS ?" d Start Basic / R T in field 0 , data 
Basie/RT at l JJ ca * lon . 1000 • m an 8K machine, load 
{? T and let ifc 8tart U P- Hit a control c, 
binarv h ? machine 9X16 load the overlay tape via the 
^ ader * Restart Basic/RT at 1000 or 6725 of 

taoe with th 3 ^ Gld Note ' when loading the overlay 
is let correctl“ ary *' " a,Ce 8UrB the data field 


Basic/RT was created from ^ attached documentation. 

c^ile^nlftrT * ^Th^Basic/R^documentation 6 ^ 

onsiders only the changes from 4K Basic to 8K Basic/RT. 


1 

..§ i 

ml 


a 


jkw 










* 



1 
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1 

Jr 


EX/iMPLE 4. User command in field 1 m t-h* 

1 type a 0 on the tel^*-^ /•? 1# 1 thia example, UCOM 

line). the teletypa (lt «Y overtype the previous 


/r<P5. *4 


PPL8-V7 



0000 


0306 

0030/. 

7743 


0001 


0054 


7175 

I 07 PP 

07/14 

006 5 


0065 

10065 

7P00 

1 0066 

600P 

10067 

6041 

j 0070 

5067 

10071 

1077 

1007 ft 

6046 

10073 

6001 

1007/' 

7000 

1007:. 

4454 

10076 

7 17 5 

10077 

0P60 


/DPS 04 

FIELD 

*306 

77/i3 

FIELD 

DUMP-54 

DICVCCM-7175 

*7/i/l 

ucc« 

*65 

DC CM, CLP 
I OF 
TSF 
JMi 
tp r 
1L5 
I ON' 

CLP 
JM£, 

tr ue cm 

HCP60, Pfifi 


PPGE 1 


0 


• - 1 

UCP60 


I l JUMP 


1 
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/PAS03 


PAL8-V7 


PAGE 1 


00306 


(361)4 
f-61 J b 
06 1) 6 
06117 
06120 
06121 
06102 
06103 
m ; 0610/1 
06125 
06126 
06127 
06130 
061 31 
06 1 32 
06133 
0613/1 
06135 
06 1 36 
06137 
06140 
06141 
06142 
06143 
06144 
06145 
06146 
06147 


0016 
47 44 
0177 
7616 
4436 
0200 
2000 
0000 
6000 
7176 
0306 
6114 
6114 

4740 

4741 
4435 
P2P6 
0000 
47 41 


/I3AS03 
AC3-16 
FIX-4744 
GETWD-177 
MEVAL-7616 
FENTER-4435 
FWD-200 
FSTA-2000 
FEXIT-0 
FMU-6000 
DEVCON-7176 
* 306 


UCOM# 


443! 


if 


6222 
0000 
47 42 
7200 
1 016 
1 34 3 
6002 
6041 
5332 
6046 
6021 
720P 
5744 
0177 
7616 
4744 
0260 
7176 
0000 
0000 
0000 


XGETWP# 
XMEVAL# 
XFIX# 
UC260ji 


DOOM 

*6114 

JMS I XGETWD 
i)MS I XMEVAL 
PENT Eli 

fsta+fwd+temp** 

fexit 

JMS I XMEVAL 
FENTEl! 

FMU+FWE+1EMP** • 

FEXIT 

JMS I XFJX 

CLA 

TAD AC3 
TAP UC260 
I OK 
;T5F 

•JM1* .-1 
TLF 
I OM 
CLA 

JMP I XDEVCO 

GE1WD 

MEVAL 


FIX 

260 


XDEVCO DEV CON 
TEMP# 0; 0; 0 


.. . . . 






















8k Basic r/T 


J. Duffy 


• 6 - 


3. Writing a user command in field 0t The section in 

the Basic/RT user manual or the Basic/RT section of the 
new manual describes how to implement a user command. 
However, there is no available room in field 0 and 
some function or command must be eliminated to make room. 
To implement a user command in field 0, store UCQM 
at location 306 of field 0 and write the command over an 

f unction * Example 3 writes the command over the 
Exp function. , « 

Return to Basic by jumping to DEVCON, DEVCQM or SKIPIT as 
described in the Basic user's pianual.' 

4. writing a user command in field 1: To put the command 
m field 1, put a 7743 at location 306 of field 0 and the 
UCQM address at 744 of field 1. At the end of the UCCM 
code exit back to field 0 by doing a 

JMS I UJMP 
DEVCON 

or 

JMS I UJMP 
DEVCOM 

or 


JMS I UJMP 
SKIPIT 

depending on the condition of the user command as explained 
in the Basic/RT user's manual. When a user's command 
UCQM is entered the data field is for field 1 (CDF 10). On 
exit the data field must also be field 1. Remember the 
floating point package can not be called from field 1. 

example 3. user command in field 0. in this example, UCQM 
A,B will multiply A times B, fix the answer, add 260 octal 
to the value and issue a TLS. 




















J. Duffy 


IHIF2, 0 
uup! # 0 
UUF4, 0 
UUP5, 0 

UM12, -12 
UFLD0, 6114 
UFLD1, UUFX 


UUFX 


4435 

2205 

6204 

0000 

CDF CIF 10 
5714 


/FENTER 

/FST+FWD+X- 

/FMP+FWD+X' 

/FEX1T 


In this example the user function was moved to field 0, 

floatlng P° int package. The o 
restriction is that the UUF can't be called at 

the same time the LOG function is called. The example 

fn i , a . V r ry i 9 °°? programming technique, but ie meant , 
to demonstrate the calling sequence of a UUF in field 1 


... 























m 




Ik 


y 
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EXAMPLE 2. UUF(A)»A 2 

' P.. 1 n */ *$ v' 1 * j|f , / *. ’ •'( *'' t 1 f j*" 

UUF function in field 

i 

FIELD 0 
*1156 

7747* 

V - 

FIELD 1 
*764 

UUF 


*65 


UUF, 0 


JMS UUFl 

CDF CIF 0 

JMS I UFLDO 

JMS UUFl 

CDF 10 

JMP I UUF 

i 

UUFl, 0 

/interchange field 0 + l code 

/call uuf in field 0 
/reexchange code 

/exit from uuf 

TAD UM12 

DCA UUF2 

TAD UFLD1 

DCA UUF3 

TAD UFLD0 

DCA UUF4 

/load number of words to exchange 
/set field 1 and 0 addresses 

UUF6, CDF 10 

TAD I UUF 3 

DGA UUF5 

CDF 0, 

TAD I UUF4 

CDF 10 

DCA I UUF3 

CDF 0 

TAD UUF5 

DCA I UUF4 

/exchange values 

ISZ UUF3 

ISZ UUF4 

ISZ UUF2 

JMP UUF6 

/get next word 

JMP I UUFl 

■ 'i > ■ . i ; t ■ , . : > • • - v - •• y * 4% 
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EXAMPLE X. W F(A)-a2 

UUF function in field 0 

FENTER=4435 

PST=»2000 

?WD»»200 

FMpw6000 

PEXIT-0000 

FIELD 0 

*1156 

UUP 

*6114 


UUP, 0 

FENTER 

pst+swd+x-/ 

PMP+FWD+X-. 
FEXIT 
JMP I UUP 

X, 0 

if 0 

0 


/ENTER PPP 
/save m 
/n*n 















w 

u 


APUT: 

AGET: 

ABOP: 


COULD ‘LCC* OUT" SASIC SO NOTHING COULD HAPPEN, THAT IS 
^ Wt^MUST CHECK POP *C HERE, IF THIS IS THE CASE 
THEN/ We. rfUST TAKE THf SAME ACTION AS FOR TW£ CASE WHERE 
we COULD PHY«ICALLV detect THE FACT THAT The -CLOCK WAS 

running too past, when we decide that the clock is running too pas' 

WE STOP the CLOCK (TO PREVENT FURTHER CLOCK INTERL'PTS) and 
Call * RTi^rr • TO PRINT OUT THE ERROR MESSAGE C" R A T E ERROR" ]' 

IF THERE WAS NO ERROR, THEN WE EXIT NORMALLY VIA ' INTEXT', 

This puts a sample in the buffer, if no room, we get 
a Suffer full message, pointers are set up by real time statement', 

OPPOSITE OF APUT, IF NOTHING THERE, IT PUTS BASIC To 

slee p until an imterupt occurs', described previously, 
this bops up pointers of aput and aget, limits set by 

Real time STATEMENT, ADA1,ADA2 AND ADAS APE DETERMINING 
LIMITS AND FACTORS, 


UCLS: ClS PUNCTION, PICKS UP ClKSTS AND RETURNS IT, 

UCICt EXECUTES 6137 AND RETURNS RESULTS IN FAC, 

UUULLLI This l* THE UPPER COPE RESETER’, 

OOAOJ Takes AC AS CHANNEL NUMBER AND DOES CONVERSION, HAS 
TIMI OUT INCASE NO A-D OR A-D NOT WORKING, 

usetf t this routine takes the ac and makes it into a good fac, 

IT CALLS begpIX and anorm, 

I 

UUAC1-3I THESE ROUTINES ADD AC1 *AC3 

RESPECTIVELY TO THE AC, THEY GET IT FROM FIELD 0, 

uumevalimeval fudge CALL 

UUPFIXi FIX PUDGE CALL, 

UUOEVCl DEVCON FUDGE CAuL, 

IUJMSI URP£R CORE COUNTER PART OF ILLJMS 

UUJMPl L'PP£R CO»E COUNTER PART OF LlLJMP 

upccmooiupper core commano dispatcher, very simple, 

UPFUVl L'OPER CORE FUNCTION DISPATCHER’, ALSO SIMPLE. 









1 












i 


7 


HR 


OBPUT: 


tme^bufper; T0 ?UT If; W0R3, IT th en puts in a 4200 to end 


UUOATaj 
SETUP l 


3S»'£s&:g srs-Jt'irs.s.— 

i»ivf:m. it returns to caller ip SUCCESSPULL, 


THIS GIVES THE "a -0 PULL" MESSAGE, 


1 SET: 
MEVAL : 


ecll-l C0DE “hich “** moved 

«EoAI>.,E we NEEDED PQOM elsewhere; 


this ROUTINE INITIALIZES THE DISPLAY, 


LLLJHS ,* 


THIS routine EVALUATES an expression. 

To CALLL»°WITH RES'JLTS 5 IN°PAC? SYNtAX GETS AN ERR ° R « RETURN IS 


LLLJMPj 


UPPTR ANT J | ni'rB° Vl0£S COMMUNICATION BETWEEN THE 
^ LLLJHS BANKS| TYPICaL CALL PROM UPPER IS 
yyyy 

r ETURW IS always VupJer PIELD^ THE " USCR WISM£S T C CALL IN LOWER 


“ CEPT ™ 4T ULJMS ■»*'* *NP 


UNO AO; 
CCINTKJ 


GIVE" The "N n A-nt* MESSAGE, 


Nis scuriu check? thc clock flag, if up, them 
IT J ^ T 0 CLOOKI IN r I eld 1 , 


TSTl D E ' C r 1 14 1 ^ HW r V I 3 " 5 >LY , 


P I E L n 


: TS, 


CLOC It TINE 19 EXECUTED ON A CLOCK INTERUFT, 

IT THEN INcScm’ Js%ur‘5,i5r D J*)! ES THE ST4TuS lN CL* 
tr^r^efr^n p A ; , ? KS 1B S^ T T HE T0 J"iT 2 WE<PE T i A M ^ I Nc, 

Ip Y t r, CT 3 ,CT 2 ANO/OP r Tl To 

.R n r done, ir done, it clears adacpt 


au:j*'t, 

S U F F r P , 

W H 'i T 1 1 £ W 
M I «U?. 

IT NOW CHECKS 
I j» . WE GET A 
Ip in the ocr 

WE CANNOT 


FIND OUT 
AND SETS ABi-u.FT 


PATE e E9Kon TH ?F C i'? C ? e IS UP AC * IV V tF IT 
.-heck'VSp 1 ^ we ARE INTERRUPTING sTms^hIt 15 SEC 

SO THAT THE H CLOCK^ Lie'rrHf ™, E , VI J° U n NE . S .’..gU!.*°L F AST ,9006, 


. T LL..I.-S— 











A 

J 


rprs 

j 

TAB: 
INTER* 

B X OLE t 


INTCXTi 

PUTt"J 
OBOPJ 
reset: j 
RESET? t 


‘P INPUT IS rwciM THE TELETYPE, aL L IS »S BEFORE, 

I ''*- ^ L ' J i TIM 5 poi-jt package is as before, except for some c^f's' 
J” i:kv a ^ ea is ti ^ at Indirects gc through field -inf, s* 

OLaJ^r-’E*? "REVIOUSLY (AS WITH TABOO), 

lil*'*™ I* 1 " ,NTrRuPT PROCESSOR. IT IS DESCRIBED ABOVE’. 

The OwY THING not mentioned was bidle, 

l}*ri ! fei f<0UTlKiE To 8E CALLED WHEN YOU want to PUT BASIC TO 

io« Tn'iSf? rioi Y *;“iS tcSSt? FUe CALL ” 5USY - “ HEN 9AS!C 

THIS M MEA?S T ?T Hi"!* 2^c?y S n'r ,F IT ' S ZER0 ' IT EXITS NORMALLY'. 
The- m u?c lH , BASIC WHEN IT INTERUPTEO, IF IT'S ONE, 

COJi'n '$ 5 J\ S J"LI! ULL J09 ROUTINE, if SO, THEN NULL JOB 

STARTED BY BIDLE, HENCE AFTER SERVICING THE 
nri^fc „ T R - TUR NS FROM BIDLE AND CLEARS THE BUSY FLAG WHEN 
U \l'lK C S LlZD ACAI ‘ J ' 9 ^E NILL EXIT TO THE LOCATION AS 
BJ'sY STATr WA Ir. T ^r INTERUPT ROUTINES SAVED WHEN IN THE LAST 

IS - COIK5 T oJ E ' ^ SUSY IS THE W0R ° WHICH KEEPS TRACK ° r * HAT 

this routine exits from an interupt. it interoga-es 
3J3Y' to find out what to do, 

DE'jCRIRED PREVIOUSLY, 

POPS !JP EITHER INPUT OR OUTPUT BUFFER FLAG, 

this resets all "Evices, see preset, 

1 r A 1MARTCR RE5eT All hardware status flags, ONLY called 

WhvJ STARTING UP BASIC, l u 


OUTC? l * DESCRIBED above. 


DEVCM, 

DEVCON* 

RTEPr-} 

GETARYl 


PLOTBj 

J 


DBLP I 


GEl ‘ J ‘ LXT ITE * p:? OU USER STATEMENT, THEN CALLS DEVCOM, 

to stf if ite* ts a c.r, if hot, then a 
pY.T'.X error results, 

TUlj Dl.'FS THE "^ATE ERROR*’ MESSAGE. 

IVd - AT USER ' S V4R ««tE AWUMSNT, IT THEN 
HETirnu 0 ’ A&T J r N ?., I "'£2?C* T10N ’ IT THEN CALLS CETADO TO 

lLt si A iJ ua- m ^I h array * it has the first, ,.nd mow the 
A^ i r lNo J ofWM-?D lo”. • IT LEAVE s pointer to first in 

-1 AND OIN'ER TO LAST IN AC2, THEN IT RETURNS, 

LT-Irto-? ','1 °‘f UV SU^E". IT SETS UP DISB TO POINT T 0 CORRECT 
pm! 1 J, T , ,|TS 4 4201 IN L4ST W0I, D OP SUFFER, IT 

p:i?uvw!V.E N .. r !? s ic^S2s! F 8urfER 50 N0THI ' ,G W,LL « 

THU ROuTlnc TAKES TuE FAC AND STICKS IT IN THE BUFFER, 

r T0 3 EE IP IN NANCE (d TO .P99RV999991 Awn tupu 

IP NOT IT SETS OSAO, IT THEN FIXES FAC, AND THEN 










N S V 


changed 


R 0 U T I N I s 


II) 


0 R 


CLRCNTj 

PUTCHI 


this routine is described by cnclr above. 


dBLCX' I 
CBwigmj 


Wa WAS CMAnGed SLIGHTLY SO THAT IF putxra 

PUNCH ? 0 # AfTtR R T^ N r^ J 2® ER 0F NULL (000) CHARACTERS WOULD 3c 

* "SS-Tli^? t T 2 ™ !“ 0F ^NCHrHs L V E 

all 0T-H E aVS- C Ti5N; u S5!i5 r T gE A !iSJf M THE 


PUTJJ 


TH^^jTPwT^-VTr^r* , THIS IS WWEPE THE RING BUFFER FOR 

w : s" nr cxreiSs r? 0 V oLoS’tS'SSJ.Shj, IT IS 13 ° i)T 9 “m'iom 


GETJ: 

P M NT | 


«•« »a\»ss swssrw:- 


jZr. A30V*?, 


I !!ifu C ? ANGED S0ME:WHA T. THE FUNCTION 

■ III fit o^thi| W l ^? RP0RATC0 To see WHETHER or not something 


CKW> lZ \ l " Zl l yn pr vi LLED WITH THE Dumber of places 

IS - GF^LACES OfSIRro J?NUS C 1 fS TUALLY ' THE ac 

AJTunaTIc CRLF IS S GIVEN pr?mt IF N0T EN0L ' GH r oom, AN 

PM the output device, size i? LEFT iS ?wioth HE SI2E of the l * ne 


■ 1ST I 


f If IAI 


lht now checks to see if 

??i u r , Ks I ;jL: u . T s A 9 So% e ,?T y ,gi t iiSL. 


KJPJT .* 


0F I I(VTF3ri' IE «°f E0 _[0 ENA0 l- E Tr E EASIER CONVERSION 

q-arrw • /M9E,S T ° rAC NUMBERS’, 

IT s4?3 ?5e I7g/to*SSsI?IVE T ft E S A r? AC1 4 4C2 ‘ 

rt.G ,OV,. n\H^ X V^iRl!s M ?0%HE T CA*U E %? LE, '' S ™ E 0VER ”»« 


”'™'£ % S &« » g g* -* 


















important routines ad locations, 


D 


Pace 


i E R 0 


LOCATIONS 


1 NOE V # 
OUTD?, 


OUTOEV; 
ODEv, 

cntlc, 

NOINT, 


RBfWCHi 
D I SB, 

preset, 


. SWITCH TO 
IE A *c SHOULD PE 
WILL SET THE NOINT SWIT 
PROCESS, NOINT WILL BE 
AND IE SO, WE PROCEED AS 


e -2 DjEu FOR IMTERUPT VECTOR', 

OlSAUTO.Ajfo ^ECISTEP USED AS POINTED TO NEXT ITEM TO BE 

AN X 0R Y p OlNT 3 '. FOUND IN NULJOB, 

Ifiv? INPUT DEVICE NUMBER (IbTTY, 2 «PTR) 
i 1 . U I PUT n£,VICE wh ILE ACCEPTING AND ECHOING 

^j"rT0 R 2S L ^fHr^Ei^ 0 5Kf2uT°S^!cE' TEMP0RARY 4SSIGNED 
IVjjy] 2«PTp^ 3 ^p?? UT1NES WIUL USE ^'NOTHING, 

TjF P rnNTDn. IC n CURRENTLY BEING USED BY THE BUFFER, 

0 rLAC <tQ, ‘ IF 01 N0 CONTROL 0 , 

JELLS whether OR NOT THE *C CHARACTER CA 

Cavj^ Ir°JMJ?iM^;j AlM / R0CESSES (SUCW AS CORE JUGGLING) 
; V .E' 8 , E IL J NT £ RU TTED ' t he«efore they set the noint - 

i * a ®J» Ji EN D0NI!: ’ ™ EY RESET * T TO A 0. -- 

STRUCK# IT WILL NOT STOP BASIC. BUT IT 

iZ'rvll 7 ^ W4EN WE LEAVE THE critical 

ip 4 5 K 5 nwI 2 SEE Ir IT CONTAI NS A 7777 , 

} p A ? 2 N I R0L c HAD dust been struck. 

Ruiviis . T| I l L :, Q R0UTn SW * TCH ‘ OMGNORE RUBOUTS, 

^ L?^ CK t ARR0WS { * U WHICH IS <5HIfT 
i ^^T:nM°^ P ! ESk;N!T DlSP *- AY BUFFER', if none IS 
^ I JERO. BUFFER IS ALWAYS IN UP°£R 

Hi T0 A rout INE which resets all 

ERROR OCCURS ^ 01 CLEANS UP THE BUFFERS, NECESSARY AFTER 
SPECINT,This POINTS to SUBROUTINE WHICH CHECKS FOR ADDITIONAL device 
L.oJa?ED ?heRe! DES THF STAN0ARD 0NES ‘ THE CLOCK TEST - E ICE 
jHjS POIVTEP POINTS TO A ROUTINE WHICH 
fi^ILvS! OUTPUT To TERMINATE (THE BUFFER 
tcWV BECAUSE OTHERWISE ERROR AND/OR 
I J (r O°M AT I ON might QE LOST IF A CONTROL 0 
JI'^E. IT ALSO RESETS THE CONTROL 0 FLAG, 

r *^ T 1 rt Y ^ ED nY THE LIST * OPTION TO SET 
0 \’MI m GL RETURN ("LAG CPUTXRA 3 , IT STORES 

!' P" H^ST, Then WAITS FOR OUTPUT 
1 » A TWO FDLO ROUTINE, 

This POTTS TO A ROUTINE WHICH 

Tf ^r THF: r D R PE N 'T CONTENTS OF THE OUTPUT BUFFER, u^ED 
r-t*i*>NTLY e v ma*'Y routines, 

HDUTT;E TESTS AND CLEARS THE NOINT FLAG DISCUSS r D FARfir 
r^r w HOTTER POINTS TO SUBROUTINE WHICH DETERMINES WHETHER 

So’.,' yoi V 5 V^u P ^ 4 T; 2 N ^ ILL 0VERFL0 “ we CORt, THE JhOUN? 

T J : fw U rDp“D T0 I AKE SH °DLD be IN the AC, IF No ROOM, 

Thc. , ,»N ER p c D MESSAGE IS GIVEN', # 


<> treat 

0. 

PRESENT, 
CORE. 

ELAGS BACK TO 


IS 


T u IS 
TTY 


AN 


PCO WT| 


DELOUT, 

CNCuR, 

>PU r T, 


EMPTY), THIS IS 

listing control 
IS HIT AT the wrong 
Twjs routine is also 
the NULL after 
the AC 
TO TERMINATE, hence TH] 


OR 

OF 















the 'Wait command 

THg'^T iMt 1 r t*mm-> i^cn i 5 f!i ,TlCAL TC ™ E WAITC COMMAND. IT "FUDGES” 

rUI VZ ^r^r/3uT M iJo u Si?u^s! NTeRUPT oecu ”- IT E °°« e >* e 

THE ACCEPT COMMAND, 

Ir i ANn t on T v C ?? M ^ D WILL SET THE ACCEPT DATA SWITCH [ADACPTJ 

WP n^NOT L L^rJ E , H i VE A G00D# CLEAN BUFFER CABDGET>»J, j F 
UE DO ^OT, WE FALL THROUGH TO THE 'REJECT' command, 


T«e 

the 


RtTu R NF 


REJECT 
REJECT 
TO 


command, 

b«TSu LE Se«oT accept DATA rLA0 c*D*c"n. , t 


IT FIRST 


the real time command, 

UH S ftS? M B A e?r IS ° N " ° r THE M0RE h A IRY OF THE NEW 

CHtCK^TO^er ?2T AND ?’ THE FO *-LOW | NG IS WHAT OCCURS, 

CHcCKw TO SEE IF Wc. APE ACCEPTING DATA* IF Wr A»r rur 

OrtMANO IS IGNORED C VIA SKIPITJ, J F WE*ARE NOT ACCEPTING Data 
HE TMEN U E r 4 THTs°lNFMH!riSS i! E J,. THE: USER RE0U ESTED, THIS O0> 

\lz\S> ft § 

Tn J 5nKT A ri, ADA3] * WE THEN GET THE CHANNEL NUMBER ’ 

N Hi J tig 4 ND C pL»CE , I T A IN >< ADCUNT HE WE G nN*LLY 

tell thp E svste2 tSa? s u ??£? e !!IS? v in the buffer cacount] and 

LLL T _ SYbTE . THAT WE'VE GOT A GOOD BUFFER CA0DGET >2]', 

THL TIME FUNCTION CTIM] 

a 0 cJ l INTEPu?T T S 0 "a^H J ?^T^ E „T 8ER ° F TICS - EV E By TIME THE 

T » H * * N « them rinit TIM returns^th is^ t?me^ i n^the'acJ INC,,EMENTS 

Thc ADB FUNCTION, 

jeItSs ael 7777,s - u * d » -a 

aoc IF f«°Ilc 5 i iT i?aS , n p‘2? 3 EITHES ones am immediate 

w.’s 

;EHs s i : ;" ™ «•!"‘Sf Si**” 

=Iv^m E "t ^m E ohe:ks ?o B SF? E ?r‘^ CTIVE ' ,r N0T < 4N ERB ° B is 

Is'VlL* T ALLS °a G ’ T 1 T S °' AW0THER MESSAGE S I j ^N , ALL 

B'JFr?^*AcJ T ’'is merely tSf^Im^b.V 0 VALUE Fq ° M THE USERS 

Vi in TH^ rufffr L^rhuKiJ I, RI JG BUFFER REMCVER, IF NOTHING 
#, z, ~ l ACOUNT S 0 ] # THEN AGTT WTLI PUT DAQrr 

^vsisirMsijs 












■ 




&ESIREO POSITION, IT CONSIST CF TWO PaRTS, 
*T\-^iAK,l tI W : CTl ' AL TAB FUNCTION, THE SECOND IS CALLFD 

IF TU* riflP - S T- A trT D PY PRINT AFTER evaluating an expression 
J F ,J : a I A ? FLj Ij SET * WHAT HAPPENS is AS FOLLOWS! 

in ?N A hf £:0 T IT FIRST F * X ES THE ARGUMENT, IT THEN SETS 

it TRf.N gets the present position of The print head from 

Rr J h«-n # *J ND ? ETURNS THIS AS T HE FUNCTION VALUE, THUS Tab CAN 
Thf U |5tmJ S -J Jr GU ft R ACTION, IT THEN RETURNS TO THE CALLER*, 
Fypor-'iinu^JI^^I PR 0 CESS 0 R CHECKS TABFLG AFTER EVALUATING AN 
F IT ' S SET (N0N-2ER0) THEN IT GOES TO TABOO’. TABDO 
ri UK .o-S! P WHEf?E ^E WANT TO GO TO (LEFT IN 'TaBOES* BY TAB) AND 
FUURL& OUT WHERE WE ARE BY USING COLUMN, IF WE ARE TO FAR IT 
t ::* p K: g ^et,jrn and A NULL CHARACTER( to prevent 

sLlei S22t: E SSi; !J I H r N SPACES , OVER THE CORRECT NUMBER OF 
r F fCEb» WHEN DONE IT RETURNS TO 'PRINT+1' To 

ci'->i^nw P uu?nu S ^ T ^Fr G ^^^ A ^ D * N0TE: THAT WE CANNOT RETURN TO THE 
SEuHON WHICH CALLED IT BECAUSE IT WILL PRINT OUT A VALUE 

it’t$ E mcii. ,T “ ,LL TAKE t « nJmIerano 


THE FOLLOWING COMMANDS ARE ALL DONE IN (RESIDE) 


IN 


FIELD l\ 


WITH 


THL ATC FUNCTION’, 

I H Sror U Ar T I0 * CReNa HED HHADC] CALLS THE ROUTINE UAOCB 
A 2ER0 AC, UAOCB IS THE GENERAL A-D 

C0URS ES OF ACTION DEPENDING ON THE AC 
tmc !!?„ SHOULD READ IT'S DESCRIPTION AT 

THE EuD, UAOCB WILL RETURN WITH THE CORRECT ADC VALUE IN THE 
FA*, IT m LL THEN RETURN TO THE CALLER, 


the set ^ate com 
this command set 
first calls meva 
places this in t 
the correct hard 
IT THEN jumps to 
CVIA LMEVAL] and 
WITH THIS number 
A NJ TIM2), THESE 
IT THEN FETU b NS 


MANO, 

S THE CLOCK GOING FROM THE ARGUMENTS, IT 
L C VIA UMEVALJ TO GET THE PATE (0-7), IT THEN 
HE COMMAND REGISTER ALONG WITH A 5010, THESE ARE 
WARE FLAG BITS TO RUN |N 'NORMAL' CLOCK MODE* 
USETM, USETM WILL EVALUATE THE NEXT EXPRESsioN 

.will then load the clock pegister 

, IT THEN CLEARS THE TWO TIME REGISTERS (TiMi 

to R the N caller TED EVERY TIME A CL0CK tic 0CCURS * 


t h£ set clock command, 

C«T?p/ S J I E!{c I !!I! 12 T un SET RATE C0MM * N3 FXCEPT THAT 
1 L „ 1 PITS or TRr MODE THE USER 
Io U^EO, J'JST bit 8 IS SET ON TO 


T'J jSETM, 


HAS 
INSURE 


specified 

interupts, 


the 


then it goes 


THc waitc command, 

CTJF’ C WQ^ N 2r W i I J S n FlR A CL ° CK TIC * IT FIRST PICKS UP T H r L0 W 

IT r CLUK COUNTER CTIM20 AND SAVES U IN UTEMP 

T 'IffS fr L Tur 3 i?hr T ° e PUT 0ASlC T ° SLEE®, WHEN IT'S AWAKENED, 
lu&c/* 11 [} ME ^? T C HANGEO. IF IT HAS, IT RETURNS 

i -t Com, if it hasvt# it goes to sleep again. 


















A) 

. 


0) 


C) 

m 


i) 


E) 


D 


th 

13 

^AiIC, IT li ALSO CALLED 
IS JUST IN T^L MANNER or 


*'uLL JOB (OR N'JLJO 0 ) 
"'I T lNG EHR SOMETHING 


, THIS ROUTINE IS Called WHENEVER 0ARIC 
to HAPPEN, IT RUNS THE SCOPE IN LAbIa/P 

rJ Tr^Tur 0 !*’**" C0MMA ^* 3 I rr E0ENCE 

as?r Sc Di 9 L 5r v ; E R eo ?i;?« t ;-* r ' 

“"r U THEN take «UT X.y %2 ^ r p » s 0 

cil P n5 . I2E M *,i yINUS ENTRV IS THE END of LIST INDICATOR 

IT SWOULn S prr.i3M C ?« S 8ACK T ° NULJ0B AN0 CHECKS NDELAY * 

J,, 2°2h D P ETURN TO THE CALLER, IF NOT. IT THEN 

all over again 9y rechecking d(sb; 


TO 

RESTARTS 


ON 

SEE 


IF 


The plot statement, 

‘ «?; 0 r T ^ 8 i§2S e gf A Sg r ?j R e s**|gi« M *2;«cv l ,i; c ;Mej.'c*LL« 
r n T & S 4L T ?4 8 0 Sl ? E 2‘2l«e K so^o^eV"’^ 

S0E M« SAME FOR THE V VALUE EXCEPT N^^SluplY,NO)' 
PONE, IT THEN GOES TO DEVCON TO CLEAN UP THE COHHAND', 


no r 
ploto to 
preset, 


It then 
when all 


I 


Tril U 5 E STATEMENT, 

Tnla STATEMENT ALLOCATES A SCOPE BUFFER IN flASIr TT rroer 

!2 ,! E 5 tP A BUFFER is ASSIGNED' IF 0?JE is.* it RETURNS* 

sw&S. 

uN^^It^^VoSn! ™ EN ' ALLS PL0TB T ° SET UP ^FFR', 

the clear command, 

T^r-^sTL^ CAUSES THE SCOPE BUFFER TO BE CLEARED. IF 

• 0: CI 5p l»Y!N0 ON THIS, HENCE NOTHING HILL BE DISPUTED'. 
the ts t function, 

T^F^JvTi'IiS? If! TS “ METHER 0" not a character has been 

1« rf?Im^ A ?^S 1 WAR' IN AC3 AND THEN NORMa[ BlJo 

II I uJ 5^ AL^' ,S 2EB0 |E NO CHARACTER HAS BEPN TYPED 

HALM-ri^^vTajSES jrSE C S T ^,B H E A 0. mN T ' PE °- TPIS 

T it o-:t anu put fu a .'ctions, 

Tmc RudOUTS AND NO RllBOUTS COMMANDS. 

Th-.SF COf'MANOS SET ThE VARIABLE RBSWCH TO 

PO l TP;E 0 r?T^^^°^ J HE: ™ ER OR NOT TO PROCESS RUBOUTS 
%TI ' E r,£ - TC " TEr ’ Tt; T H!S FLAG WHEN INPUTING CHARACTERS,* 

th-. tab function, 

this FUNCTION is THE FUNCTION WHICH CAN POSITION THE PRINT 


The 


p. /■ 


o 











fl f?f?K T rgSJ?f”:f ? =v*^?^roSs £ sST! 5 T S ?rii?* 

iurt^Sf, ™ T 15 S^E»E' T L r% 3 M T ?Sr 3 L?*i;b5? TO PRINT A CH«*“ct^ ,* 
CONTr,UE, L rh‘« AR^rS^^HrB'VosJ^ 8UFF ER H IS Y ^he/H SlLL 6 "' 

o T S c ™ e 

tu ^ ARA.TEPS m TH r 9 U F F F R t ur ki dm* 1T # ^ ^ ^ ^OSS X8LE # IF T M F R r 

CLic' JN0Ef! * ^”ol 4 c\suppres$ C outputI UI ‘ lv s * vs ' : “«ET 2 £ :R C 0 R L ° 0 T *yp 

1^,1^ P3 ^ process Characters I i , ;.t1*S , £e , j N SM%e U t N 55I! 1 =° W8E 


C) 


The t'jTERUPT CHAIN I 


IT RASICAL.V 00ES H ; H P°rL7L^ CH CIHECKS ™E DEVICES ON aN I NTERijpt 
machine (AC, Ll5?/?f c r Lt '«• ,‘1 r 'RST SAVES THE STATE Or ' 

{t, ^ I T^OOPS^TO ^THE ' T * “W.W eCrCrTV"'^ ' S 
UTPOT rLA« (TTr.LJ T ; B |?pI 0 ,THE CORRECT ROUTINE. On\n ‘ lf 

r^F CHASAcTcMn R i>jcu A S R isN'T? W IT K MEPELY E puicES T ' S A 

^r ri i!,J3? T *0 ti?i tT IT SETS 


■Respnt our ?■), dupPEP T ? 0ELETE THE 

;j E ;'0J' IP P’S OK To STOP Iasic nolJ T ?? ec ? s Nom ' d 1SCUSSED at 
IASIC WITH a S T 0P-orADy m ecAr r ' IT THEN RESETS 

Hr nwi V i Tupn - L . UY M c.SSAGE AND GOES Tn rmr _ 


'ASIC WITh A S^P.P E ACy HESS A r 3 r AS i. C n NC n W ‘ IT TH E 5 "ESETS ^ US!>fc0 AT 


> 


L A J - r i \ 1 ADDITIONS: 


;£^ TC ,2 : ‘ kT:::E '“ , S-<=^’pE T ^PHEirLS SA |l l S2r L I 4 SEB1ES 0F COHHANOS which 

«;TO?g sjtt 






m 


y 














WILL O0 RE?jS^tS H ,^- °k NF: 15 TyPCD * THE I"0 ROUTINES 

/o ", A "iE, W I!: L continue to h*un' until it 


ua.jt- a uriT 4 p ru.o;:,,.: ’ „ * ,,v ' vuiin tu utjti 

T m spa, J5v LR or unitl it wants to output another 

BASir Vai iVtuc'? L i T »', UAS j Is USUALLV WAITING TOR INPUT, WHEN 
DO W^AT 94?r" H WA*jTc R ?H Tl r ES * THE R OUTINES CHECK TO SEE IF IT CAN 

Its t ?V/•f w“ws“?."ssK 5 Aigni ic - ir 

«*i?5 ? ?if « ir E ” ^nS«*&*;?? T0 

IN L l2b # 8/E^UA-IC ENC ^ r " VT ” E *"® X "° U ^ I ' 5 “ T ^ cP “°*TINC C ?OR E AN N INTER6pT 
m^^y^FER- ULJ ° B 13 THE R0UTINE W H!CH DISPLAYS THE cSnIENTsV 

the IMP nr^rur^^ The 1 " C ROUTINES TO GET OR PUT A CHARACTER. 

THE J.,e OF THE SCOPE WILL BE DISCUSSED IN THE NEXT SECTION, 1 


A) 


the get pqutinei 


CH ‘ R4CU °- 

FOLLotsi ° ™ E 4IGH SPEED READER * THE SEQUENCE Jf EVENTS IS Us 

rwrr*<; rn^E! »i PST rhECI<S T WE DEVICE FLAG', IF IT'S A ONEi THEN IT 
CHECKb TO oEB IF A CHARACTER HAS BEEN TYPED TYPED CHARapTFRS adt i ptt 

II* ?? UTINES IN * L0CAT ‘ 0N WLLEP MNCmSS”*?? SS CHAR^CTEfl 

Tn C ?c5S !* FE 2* IT CALLS A ROUTINE CALLED 'BIDLE', SIDLE PUTS Bact^ C E 

RETURNS r ^ t r> m agat ^ L |”nno? B A n NTIL AN INTERUPT OCCURS, AFTER BlDLE 

5 ‘t$ ifwur T T'S slup «!". ° CHECKS INCH1R ' ,E ST,LL N ° T «'• “ 

zhi -Sr f R F" E A R??r^ E s N gj^J? ?s?? BU r, 

j; froh 

"«S THE y BEeiNN!NS T 5?'sI¥?H THIN 

'MASK' ALL*Al"7M3nFP ?mt n *f,^ 5W i N GETCH WITH A CHARACTER, WE NOW 
177?? twTn ?bI,? nE ' INT ° 17:> * IF RUBOUTS ARE SELECTED, WE MASK 

SOME VrF-F JITiN*'i2 A S!!Mr A SS <2ie ” 13 ALS ° MASKE0 INT0 137, THUS 
THe'aC FRQi U'TChI E ™ E CHARACTEq * IT IS THEN RETURNED IN 


) 


THE PUT ROUTINE - : 


IT !C, A, i¥ r -n5£ U ri w ™ PRIWTS A CHARACTER 0N THE de:ssirf;d OUTPUT DEVICE* 

an. j,« izz?is 








i 






• 'v,v*r ■ >. 

f :r' 

X. k.. Jk:-i ■ '■ ■’ » • 





l77sf-i777; 
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NCH 

OPERATION < 
WILL 9 E 'Dl 
THE USER'S 
A LIME, the 
NEXT LIST, 

IT'S time i 
OPERATION 1 
DATA FIELD 
INSTANCES w 
PLACE WHEt-E 
POINT PACK 4 
FIND OUT !*j h 
THE COMMENT 
ONE OF The 4 
3 ATA OR EXI 
THERE ARE h 
BASIC, 


lE^T ALU^’E CPRESERVED FOR THE Rl* LOADER] 

ALL OF^ThE SPACE THAT WAS IN FREE F J EL n 2 IS NOW O^CiiPtrn 
nna“Pr^ ’ ™ E 9 ^ A RY LOADER MUST RE IN FjelO ONE 

2 « M¥ E *E B, toioED t SY M ^ 8 ? e PRESERVE0 - BASIC 


,nV^“TI H ‘ s SEEN ESTABLISHED, THE MODE or 
)m I Hr, ru^rEr‘ IN IT'S NORMAL MODE OR OPERATION 

$ « > s RE ; E Sm? E Ra 5 ;sr,j: E o^siK T ?ir o " 
5%« t v $ ? ; n s^w^-or 

<• rrs rue n!»' H r? MEANS THAT BASIC'S NORMAL MODE OF 

r ?! r 8 ,V? St! °o® E " E - '* 

•V''-- P ?H.?? C 8k',nsIr?S F {unI R iTI 0, ' IS 1Rr TAWE0 “ ITH 
t S'erjjw. he *hou|!D 1 K E SI»£rUL“or 1 fISS i w e u? e imoiheSt*'■ V1 "• 

TT'I» HITh THE data FIELO SET INCORRrrTI Y All rnniro 
C.IATJVEIY FEW CDF INSTRUCTIONS FOR THF S J 2 E Op A PROGRAM LIKE 


II) 


I*)T C PurT I/O 


between e“L5vs-i" M "no TO l Id'v S f ec =! s °?/ h ;'?„ m ‘ kes ThE »«•«« OIFr C R ENC : 

BASIC A 'SlMULArro? RFTTFR RnM^rfi?'J2I, E * UPT 1/0 GIVES LAB-8/E 

THE CLOCK To BE 'JSED IN A °EA L *TIM F maS|JcI E ° F BUFF£;RIN G AND ALLOWS 

RLU iN A REAL-TIME MANNER. A BASIC OVERVIEW FOLLOWS! 

VS TlME T Iu A F'lF| T l5 T nMr IN !I L P ? EVI0US SECTION THAT SASIC SPENDS MOST OF 

'&£ ;; pH VSim ?,k SS- - w™ the 

DEAu ING with THE outside 2 omn- ?r irH,r°^ TINES * Rt: B * S IC'S HAY or 

CHAPTER. ,T C.L^ T ^ E ,;S^gi T ! P e rn C DS*?;? S T ?A^: h°SeN CE T T HE A CHA.AOTrp 
















LAj-O/C DOCUMENTATION 


SASIC Fnfl W fur ad ^^ CRIDTI0 ^ ° F THE INTERNAL WORKINGS OP 
EDUSYsIi!ri?SrW?;2 / 5^V NCE LA0 - 8/E; BA SIC IS A MODIFICATION OF 
-'NLY nrsro?Ir^rup S E l<N0WNI AS 4K SASIC), THIS DOCUMENT W^L 
wNLY OESCRi^r thf CHANGES MADE TO EDUSYS-10 TO PRODUCE LAB*8/E BASIC', 

nOFS ir^ifrpMJc 0 ^ 1 : W ° RKS APPROXIMATELY THE SAME WAY AS EOUSYS-10 
OOES, IT DIFFERS IN The FOLLOWING RESPECTSl 

3 ! L ^’f /E 6ASIC U3ES flK 0F C0 *E AS OPPOSED TO 4K OF CORE, 

1 S uses Interupts ano handles more DEIVCES’, 

’ CDMMANDS^WHICW H PERTAIN T T0^TH£ C LAB»8/E^ N ^^^ ™ E 

»l»w?“i 3 i^Sig'' S, ** A * s “"*“ ®*^® H *no E eousvs-i 0 , Tsnier 1 THE ‘ B8V? 

our„ ES ioit Sori^ D y« T T T K H E % E ^r L ; c H i?,sSs MO M E “* H ^ H decr,ses “ h,t the 


I) 


*K MODIFICATION, 


vrnvrutIr o^e^ 9ASIC IJSE WK V THE p OLLOWING CHANGE WAS MADE, IN 4K 

ur ico 0 . in the 8 k version, everything from 

35 REM ^ P fJi C F?F N ,^nM? W r« R£:SlDES IN ^ELD l! iN^ODnloSJ So 5 !°SoW 
HUS A"col; 1 ou£d look like? 1, ™ E CL0CK and a,,d i n structions, 


0000-1077 7 
U000*17?*> 3 


1 ) 

?> 

3 ) 

4 ) 

5 ) 
M 
7) 

6 ) 
R> 




BASIC SYSTEM CALL CODE NEEDED FOR BASIC] 

f VM ®? L AREA * THIS AREA IS THE SAME AS IN 4K BASICl 
CONSISTS of THE FOLLOWING IN THIS ORQERl 
ARRAN AND VAPIABLE SPACE 

r3n^rfpn C / EVERYTHING 'GROWS' INTO THIS SPACE) 

Ncrl^i (COMPILED) BASIC PROGRAM IMAGE, 

USER SYMBOL TA8LE AREA', 

BASIC'S PERMANENT SYMBOL TABLE AREA 
1^ ^‘?” UrrEB ITTY ‘NO TRiNSLATED LINE BUFFER) 

1 Hr. 7 T A CK j 

thf for-next LIST 
the GO SUB LIST, 


THUS UPPER CpRE IS 
AREA WHERE ALL THE 

variable areas ARE 


THE 

DRIVING TABLES 
IN BASIC, 


AND PROGRAM. 
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FaT'-Cj, 

LIMIT, 

) 

PC«f.FVM 


LINHUF, 

LBEGIN, 
ENDL IN', 
PDLI3T, 
ENDP’JL, 

forlist, 

COLI-jT, 


GSPLVD, 


F 1 W3T LOCATION or USER FREE SPACE', 
r' , 15 TH: 0%ly POSTER TO IT SO THAT ""W a \g r \i" »pltutt< 

i«; f : u- ;s S" 0 THr ru,ICT,0M - THE ci'aloo U I 

J L L ^^ , y s 0 ;u^*^i L ? T ^ E ° stmase - 

IT> rORM IS EXACTLY WHAT IT LOOKS LIKEl 
CO)E WORD J TEXT 'THE SYMBOLS PR J NT NAME' 

Tu-or^rc IMPUT BUFrER * TRANSLATED LINE STARTS HERE, 

ts‘j"ST : COLLECT^" r0 ” ™ E FUUNESS 0F THE L ‘ N E EXCEPT UHEN IT 

STxPT?!i C T 4CRc‘rRj N fHE TEUTmT'’*" 81 -*'" ASCU CBMES ’ N 

11^‘kSst ENC Ar-MUIN^*' * S '' EN0PDL '- 0UT ™E TRANSLATED 

E0R EXPBESSI0NS * N ° LIKE that'. 

en? of the push down list, 

?“^i^ E V^ X ^E M LScA?,Jro? 0 ;SE E ^3! E ?N THE TOR. STATEMENT 

IA?Le! M A HA E IMuM H Or E S E ENTRIES? E ^ ENTR,ES ' ' ' 

A POINTER TO after the COSUB. 

To the next free space - 

T7j6 THROUGH 7777 ARE UNTOUCHED BY EXECUTION OF BASIC, 

















